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The First Ten Commandments 


The First Commandment 

When recurring on a list of atoms, lat , ask 
two questions about it: (null? lat) and else. 
When recurring on a number, n, ask two 
questions about it: (zero? n) and else. 
When recurring on a list of S-expressions, /, 
ask three question about it: (null? /), (atom? 
(car /)), and else. 

The Second Commandment 

Use cons to build lists. 

The Third Commandment 

When building a list, describe the first typi¬ 
cal element, and then cons it onto the natu¬ 
ral recursion. 

The Fourth Commandment 

Always change at least one argument while 
recurring. When recurring on a list of atoms, 
/at, use (cdr lat). When recurring on a num¬ 
ber, n, use (subl n). And when recurring on 
a list of S-expressions, /, use (car l) and (cdr 
l) if neither (null? 1) nor (atom? (car /)) are 
true. 

It must be changed to be closer to termina¬ 
tion. The changing argument must be tested 
in the termination condition: 

when using cdr, test termination with null? 
and 

when using subl, test termination with 
zero ?. 


The Fifth Commandment 

When building a value with ,always use 
0 for the value of the terminating line, for 
adding 0 does not change the value of an 
addition. 

When building a value with x, always use 
1 for the value of the terminating line, for 
multiplying by 1 does not change the value 
of a multiplication. 

When building a value with cons , always 
consider () for the value of the terminating 
line. 

The Sixth Commandment 

Simplify only after the function is correct. 

The Seventh Commandment 

Recur on the subparts that are of the same 
nature: 

• On the sublists of a list. 

• On the subexpressions of an arithmetic 
expression. 

The Eighth Commandment 

Use help functions to abstract from represen¬ 
tations. 

The Ninth Commandment 

Abstract common patterns with a new func¬ 
tion. 

The Tenth Commandment 

Build functions to collect more than one 
value at a time. 



The Next Ten Commandments 


The Eleventh Commandment 

Use additional arguments when a function 
needs to know what other arguments to the 
function have been like so far. 

The Twelfth Commandment 

Use (letrec ...) to remove arguments that 
do not change for recursive applications. 

The Thirteenth Commandment 

Use (letrec ...) to hide and to protect 
functions. 

The Fourteenth Commandment 

Use (letcc ...) to return values abruptly 
and promptly. 

The Fifteenth Commandment 

Use (let...) to name the values of repeated 
expressions in a function definition if they 
may be evaluated twice for one and the 
same use of the function. And use (let ...) 
to name the values of expressions (without 
set!) that are re-evaluated every time a 
function is used. 


The Sixteenth Commandment 

Use (set! ...) only with names defined in 
(let ... )s. 

The Seventeenth Commandment 

Use (set! x ...) for (let ((x ...)) ...) only 
if there is at least one (lambda ... between 
it and the (let ...), or if the new value for 
x is a function that refers to x. 

The Eighteenth Commandment 

Use (set! x ...) only when the value that x 
refers to is no longer needed. 

The Nineteenth Commandment 

Use (set! ...) to remember valuable things 
between two distinct uses of a function. 

The Twentieth Commandment 

When thinking about a value created with 
(letcc ...), write down the function that is 
equivalent but does not forget. Then, when 
you use it, remember to forget. 
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Foreword 


If you give someone a fish, he can eat for a day. 

If you teach someone to fish, he can eat for a lifetime. 

This familiar proverb applies also to data structures in programming languages. 

If you have read The Little Lisper (recently revised and retitled: The Little Schemer ), the 
predecessor to this book, you know that lists of things are at the heart of Lisp. Indeed, “LISP” 
originally stood for “LISt Processing.” By the same token, I suppose that the C programming 
language could have been called CHAP (for “CHAracter Processing”) and Fortran could have 
been FLOP (for “FLOating-point Processing”). 

Now C without characters or Fortran without its floating-point numbers would be almost 
unthinkable. They would be completely different languages, perhaps almost useless. What 
about Lisp without lists? Well, Lisp has not only lists but functions that perform computations. 
And we have learned, slowly and sometimes laboriously over the years, that while lists are the 
heart of Lisp, functions are the soul. 

Lisp must, of course, have lists; yet functions are enough. Dan and Matthias will show you 
the way. The Little Lisper was truly a feast; but, as you will see, there is more to life than food. 

Have you eaten? Very good. Now you are prepared for the real journey. 

Come, learn to fish! 

—Guy L. Steele Jr. 
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Preface 


To celebrate the twentieth anniversary of Scheme we revised The Little LISPer a 
third time, gave it the more accurate title The Little Schemer , and wrote a sequel: 

The Seasoned Schemer. 

The goal of this book is to teach the reader to think about the nature of computation. Our first 
task is to decide which language to use to communicate this concept. There are three obvious 
choices: a natural language, such as English; formal mathematics; or a programming language. 
Natural languages are ambiguous, imprecise, and sometimes awkwardly verbose. These are all 
virtues for general communication, but something of a drawback for communicating concisely 
as precise a concept as the power of recursion, the subtlety of control, and the true role of state. 
The language of mathematics is the opposite of natural language: it can express powerful formal 
ideas with only a few symbols. We could, for example, describe the semantic content of this book 
in less than a page of mathematics, but conveying how to harness the power of functions in the 
presence of state and control is nearly impossible. The marriage of technology and mathematics 
presents us with a third, almost ideal choice: a programming language. Programming languages 
seem the best way to convey the nature of computation. They share with mathematics the 
ability to give a formal meaning to a set of symbols. But unlike mathematics, programming 
languages can be directly experienced—you can take the programs in this book, observe their 
behavior, modify them, and experience the effect of these modifications. 

Perhaps the best programming language for teaching about the nature of computation is 
Scheme. Scheme is symbolic and numeric—the programmer does not have to make an explicit 
mapping between the symbols and numerals of his own language and the representations in 
the computer. Scheme is primarily a functional language, but it also provides assignment, set!, 
and a powerful control operator, letcc (or call-with-current-continuation), so that programmers 
can explicitly characterize the change of state. Since our only concerns are the principles 

of computation, our treatment is limited to the whys and wherefores of just a few language 
constructs: car, cdr, cons, eq?, atom?, null?, zero?, addl, subl, number?, lambda, cond, define, 
or, and, quote, letrec, letcc (or call-with-current-continuation), let, set!, and if. Our language is 
an idealized Scheme. 

The Little Schemer and The Seasoned Schemer will not directly introduce you to the 
practical world of programming, but a mastery of the concepts in these books provides a start 
toward understanding the nature of computation. 

Acknowledgments 

We particularly want to thank Bob Filman for contributing to the l^Kery and Dorai 
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programming in Scheme a most pleasant experience. We gratefully acknowledge criticisms and 
suggestions from Steve Breeser, Eugene Byon, Corky Cartwright, Richard Cobbe, David Combs, 
Kent Dybvig, Rob Friedman, Gustavo Gomez-Espinoza-Martinez, Dmitri Gusev, Chris Haynes, 
Erik Hilsdale, Eugene Kohlbecker, Shriram Krishnamurthi, Julia Lawall, Shinnder Lee, Collin 
McCurdy, Suzanne Menzel, John Nienart, Jon Rossie, David Roth, Jonathan Sobel, George 
Springer, Guy Steele, John David Stone, Vikram Subramaniam, Perry Wagle, Mitch Wand, 
Peter Weingartner, Melissa Wingard-Phillips, Beata Winnicka, and John Zuckerman. 
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Hints for the Reader 

Do not rush through this book. Read carefully; valuable hints are scattered throughout the 
text. Do not read the book in fewer than five sittings. Read systematically. If you do not fully 
understand one chapter, you will understand the next one even less. The questions are ordered 
by increasing difficulty; it will be hard to answer later ones if you cannot solve the earlier ones. 

The book is a dialogue between you and us about interesting examples of Scheme programs. 
Try the examples while you read. Schemes and Lisps are readily available. While there are 
minor syntactic variations between different implementations (primarily the spelling of particular 
names and the domain of specific functions), Scheme is basically the same throughout the world. 
To work with Scheme, you will need to define atom?, subl, and addl, which we introduced in 

The Little Schemer : 

(define atom? 

(lambda (x) 

(and (not (pair? x)) (not (null? x))))) 

Those readers who have read The Little LISPer need to understand that the empty list, (), is 
no longer an atom. To find out whether your Scheme has the correct definition of atom?, try 
(atom? (quote ())) and make sure it returns #f. To work with Lisp, you will also have to add 
the function atom?: 

(defun atom? (x) 

(not (listp x))) 

Moreover, you may need to modify the programs slightly. Typically, the material requires 
only a few changes. Suggestions about how to try the programs in the book are provided in the 
framenotes. Framenotes preceded by “S:” concern Scheme, those by “L:” concern Common Lisp. 
The framenotes in this book, especially those concerning Common Lisp, assume knowledge of 
the framenotes in The Little Schemer or of the basics of Common Lisp. 

We do not give any formal definitions in this book. We believe that you can form your own 
definitions and will thus remember them and understand them better than if we had written 
each one for you. But be sure you know and understand the Commandments thoroughly before 
passing them by. The key to programming is recognizing patterns in data and processes. The 
Commandments highlight the patterns. Early in the book, some concepts are narrowed for 
simplicity; later, they are expanded and qualified. You should also know that, while everything 
in the book is Scheme (chapter 19 is not Lisp), the language incorporates more than needs to 
be covered in a text on the nature of computation. 

We use a few notational conventions throughout the text, primarily changes in typeface 
for different classes of symbols. Variables and the names of primitive operations are in italic. 
Basic data, including numbers and representations of truth and falsehood, is set in sans serif. 
Keywords, i.e., letrec, letcc, let, if, set!, define, lambda, cond, else, and, or, and quote 
are in boldface. When you try the programs, you may ignore the typefaces but not the related 
framenotes. To highlight this role of typefaces, the programs in framenotes are completely set 
in a typewriter face. The typeface distinctions can be safely ignored until chapter 20, where 
we treat programs as data. 
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Finally, Webster defines “punctuation” as the act of punctuating; specifically, the act, 
practice, or system of using standardized marks in writing and printing to separate sentences 
or sentence elements or to make the meaning clearer. We have taken this definition literally 
and have abandoned some familiar uses of punctuation in order to make the meaning clearer. 
Specifically, we have dropped the use of punctuation in the left-hand column whenever the item 
that precedes such punctuation is a term in our programming language. 

Once again, food appears in many of our examples, and we are no more health conscious 
than we were before. We hope the food provides you with a little distraction and keeps you 
from reading too much of the book at one sitting. 


Ready to start? 


Good luck! 


We hope you will enjoy the challenges waiting for you on the following pages. 


Bon appetit! 

Daniel P. Friedman 
Matthias Felleisen 


Preface 


xm 


Seasoned Schemer 




















Welcome back. 

It’s a pleasure. 

Have you read The Little LIS Per? l 

#f- 

1 Or The Little Schemer. 


Are you sure you haven’t read 

The Little LISPerl 

Well, ... 

Do you know about Lambda the Ultimate? 

#t. 

Are you sure you have read that much of 

The Little LISPerl 

Absolutely. 1 


1 If you axe familiar with recursion and know that functions 
are values, you may continue anyway. 

Are you acquainted with member? 

Sure, member? is a good friend. 

(define member? 

(lambda (a lat) 

(cond 

{{null? lat ) #f) 

(else (or {eq? a {car lat)) 

{member? a {cdr lat))))))) 




What is the value of {member? a lat) 

where a is sardines 

and 

lat is (Italian sardines spaghetti parsley) 

#t , but this is not interesting. 

What is the value of {two-in-a-row? lat) 
where 

lat is (Italian sardines spaghetti parsley) 

#f. 
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Are two-in-a-row? and member? related? 


Yes, both visit each element of a list of atoms 
up to some point. One checks whether an 
atom is in a list, the other checks whether 
any atom occurs twice in a row. 


What is the value of ( two-in-a-row? lat) #t. 

where 

lat is (Italian sardines sardines 

spaghetti parsley) 


What is the value of ( two-in-a-row? lat) #f. 

where 

lat is (Italian sardines more 

sardines spaghetti) 

Explain precisely what two-in-a-row? does. Easy. 

It determines whether any atom occurs 
twice in a row in a list of atoms. 

Is this close to what two-in-a-row? should That looks fine. The dots in the first line 

look like? should be replaced by #f. 



What should we do with the dots in the We know that there is at least one element 

second line? in lat. We must find out whether the next 

element in lat , if there is one, is identical to 
this element. 
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Doesn’t this sound like we need a function to 
do this? Define it. 


(define is-first? 

(lambda (a lat) 

(cond 

{{null? lat) #f) 

(else {eq? {car lat) a))))) 


Can we now complete the definition of Yes, now we have all the pieces and we just 

two-in-a-row? need to put them together: 

(define two-in-a-row? 

(lambda {lat) 

(cond 

{{null? lat) #f) 

(else 

(or {is-first? {car lat) {cdr lat)) 
{two-in-a-row? {cdr lat))))))) 


There is a different way to accomplish the We have seen this before: most functions can 

same task. be defined in more than one way. 


What does two-in-a-row? do when is-first? It continues to search for two atoms in a row 
returns #f in the rest of lat. 


Is it true that {is-first? a lat) may respond Yes, it returns #f when lat is empty or when 

with #f for two different situations? the first element in the list is different from a. 


In which of the two cases does it make sense In the second one only, because the rest of 

for two-in-a-row? to continue the search? the list is not empty. 


Should we change the definitions of That’s an interesting idea. 

two-in-a-row? and is-first? in such a way 

that two-in-a-row? leaves the decision of 

whether continuing the search is useful to the 

revised version of is-first? 
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Here is a revised version of two-in-a-row? 


(define two-in-a-row? 
(lambda ( lat) 
(cond 

{{null? lat) #f) 
(else 


{is-first-b? {car lat) {cdr lat)))))) 


Can you define the function is-first-b? which 
is like is-first? but uses two-in-a-row? only 
when it is useful to resume the search? 


That’s easy. If lat is empty, the value 
of {is-first-b? a lat) is #f. If lat is non-empty 
and if {eq? {car lat) a) is not true, it 
determines the value of {two-in-a-row? lat). 



(define is-first-b? 
(lambda (a lat) 
(cond 


{{null? lat) #f) 

(else (or {eq? {car lat) a) 

{two-in-a-row? lat)))))) 


Why do we determine the value of 
{two-in-a-row? lat) in is-first-b? 


If lat contains at least one atom and if the 
atom is not the same as a, we must search 
for two atoms in a row in lat. And that’s the 
job of two-in-a-row?. 


When is-first-b? determines the value of 
{two-in-a-row? lat) what does two-in-a-row? 
actually do? 


Since lat is not empty, it will request the 
value of {is-first-b? {car lat) {cdr lat)). 


Does this mean we could write a function 
like is-first-b? that doesn’t use two-in-a-row? 
at all? 


Yes, we could. The new function would recur 
directly instead of through two-in-a-row?. 


Let’s use the name two-in-a-row-b? for the 
new version of is-first-b? 


That sounds like a good name. 


How would two-in-a-row-b? recur? 


With {two-in-a-row-b? {car lat) {cdr lat)), 
because that’s the way two-in-a-row? used 
is-first-b?, and two-in-a-row-b? is used in 
its place now. 


So what is a when we are asked to determine 
the value of {two-in-a-row-b? a lat) 


It is the atom that precedes the atoms in lat 
in the original list. 


6 


Chapter 11 



Can you fill in the dots in the following 
definition of two-in-a-row-b? 


(define two-in-a-row-b? 
(lambda (preceding lat) 
(cond 

{{null? lat) #f) 
(else ... 


{two-in-a-row-b? {car lat) 
{cdr lat)) 

•••)))) 


That’s easy. It is just like is-first? except 
that we know what to do when {car lat) is 
not equal to preceding: 


(define two-in-a-row-b? 

(lambda {preceding lat) 

(cond 

{{null? lat) #f) 

(else (or {eq? {car lat) preceding) 

{two-in-a-row-b? {car lat) 
(cdr lat))))))) 


What is the natural recursion in 
two-in-a-row-b? 


The natural recursion is 

{two-in-a-row-b? {car lat) {cdr lat)) 


Is this unusual? Definitely: both arguments change even 

though the function asks questions about its 
second argument only. 


Why does the first argument to As the name of the argument says, the first 

two-in-a-row-b? change all the time? argument is always the atom that precedes 

the current lat in the list of atoms that 
two-in-a-row? received. 


Now that we have two-in-a-row-b ? can you 
define two-in-a-row? a final time? 



Let’s see one more time how two-in-a-row? Okay, 
works. 
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(two-in-a-row? lat) 
where 

lat is (b d e i i a g) 

This looks like a good example. Since lat is 
not empty, we need the value of 
(two-in-a-row-b? preceding lat) 
where preceding is b 
and 

lat is (d eii a g) 

(null? lat) 
where 

lat is (d e i i a g) 

#f. 

(eq? (car lat) preceding) 
where preceding is b 
and 

lat is (d e i i a g) 

#f, 

because d is not b. 

And now? 

Next we need to determine the value of 
(two-in-a-row-b? preceding lat) where 
preceding is d 
and 

lat is (e i i a g). 

Does it stop here? 

No, it doesn’t. After determining that lat is 
not empty and that (eq? (car lat) preceding) 
is not true, we must determine the value of 
(two-in-a-row-b? preceding lat) 
where preceding is e 
and 

lat is (i i a g). 

Enough? 

Not yet. We also need to determine the value 
of (two-in-a-row-b? preceding lat) 
where preceding is i 
and 

lat is (i a g). 
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And? 


Now ( eq? (car lat) preceding) is true 
because preceding is i 
and 

lat is (i a g). 

So what is the value of (two-in-a-row? lat) #t. 

where 

lat is (b d e i i a g) 

Do we now understand how two-in-a-row? Yes, this is clear, 

works? 

What is the value of (sum-of-prefixes tup) (2 3 12 29 29). 

where 

tup is (2 1 9 17 0) 

(sum-of-prefixes tup) (1 2 3 4 5). 

where 

tup is (1 1 1 1 1) 


Should we try our usual strategy again? We could. The function visits the elements of 

a tup, so it should follow the pattern for such 
functions: 



The first line is easy again. We must replace 
the dots with (quote ()), because we are 
building a list. 


What is a good replacement for the dots in 
the first line? 




Welcome Back to the Show 



Then how about the second line? 

The second line is the hard part. 

Why? 

The answer should be the sum of all the 
numbers that we have seen so far consed 
onto the natural recursion. 

Let’s do it! 

The function does not know what all these 
numbers are. So we can’t form the sum of 
the prefix. 

How do we get around this? 

The trick that we just saw should help. 

Which trick? 

Well, two-in-a-row-b? receives two arguments 
and one tells it something about the other. 


What does two-in-a-row-b T s first argument Easy: the first argument, preceding , always 
say about the second argument. occurs just before the second argument, lat, 

in the original list. 


So how does this help us with sum-of-prefixes We could define sum-of-prefixes-b , which 

receives tup and the sum of all the numbers 
that precede tup in the tup that 
sum-of-prefixes received. 


Let’s do it! 


(define sum-of-prefixes-b 
(lambda (sonssf tup) 

(cond 

{{null? tup) (quote ())) 

(else {cons (HH sonssf {car tup)) 

( sum-of-prefixes-b 
(HH sonssf {car tup)) 
(cdr tup))))))) 


Isn’t sonssf a strange name? 


It is an abbreviation. Expanding it helps a 
lot: sum of numbers seen so far. 
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What is the value of 

(sum- 0 f-prefixes-b sonssf tup) 
where sonssf is 0 
and 

tup is (1 1 1) 


Since tup is not empty, we need to determine 
the value of 

(cons 1 ( sum-of-prefixes-b 1 tup)) 
where 

tup is (1 1). 


And what do we do now? 


We cons 2 onto the value of 
(sum-of-prefixes-b 2 tup) 
where 
tup is (1). 


Next? We need to remember to cons the value 3 

onto (sum-of-prefixes-b 3 tup) 
where 
tup is (). 


What is left to do? We need to: 

a. cons 3 onto () 

b. cons 2 onto the result of a 

c. cons 1 onto the result of b. 
And then we are done. 


Is sonssf a good name? Yes, every natural recursion with 

sum-of-prefixes-b uses the sum of all the 
numbers preceding tup. 


Define sum-of-prefixes using 
sum- of-prefixes-b 


Obviously the first sum for sonssf must be 0: 

(define sum-of-prefixes 
(lambda (tup) 

(sum-of-prefixes-b 0 tup))) 


The Eleventh Commandment 

Use additional arguments when a function 
needs to know what other arguments to the 
function have been like so far. 
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Do you remember what a tup is? 

A tup is a list of numbers. 

Is (1 11342119 2) a tup? 

Yes, because it is a list of numbers. 

What is the value of (scramble tup) 
where 

tup is (1 1 1 3 4 2 1 1 9 2) 

(111114 1119). 

{scramble tup) 
where 

tup is (1 2 3 4 5 6 7 8 9) 

(111111111). 

{scramble tup) 
where 

tup is (1 231234182 10) 

(1 1 1 1 1 1 1 1 2 8 2). 

Have you figured out what it does yet? 

It’s okay if you haven’t. It’s kind of crazy. 

Here’s our explanation: 

“The function scramble takes a non-empty 
tup in which no number is greater than its 
own index, and returns a tup of the same 
length. Each number in the argument is 
treated as a backward index from its own 
position to a point earlier in the tup. The 
result at each position is found by 
counting backward from the current 
position according to this index.” 

If / is (1 1 1 3 4 2 1 1 9 2) 

what is the prefix of (4 2 1 1 9 2) in / 

(1113 4), 

because the prefix contains the first 
element, too. 

And if/is (1 11342119 2) 
what is the prefix of (2 1 1 9 2) in / 

(1 1 1 34 2). 
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Is it true that ( scramble tup ) must know 
something about the prefix for every element 
of tup 


Does this mean we have to define another 
function that does most of the work for 
scramble 


What is the difference between scramble and 
sum-of-prefixes 


What is ( pick n lat) 
where n is 4 
and 

lat is (4 3 1 1 1) 


What is ( pick n lat) 
where n is 2 
and 

lat is (2 4 3 1 1 1) 

Do you remember pick from chapter 4? 


Welcome Back to the Show 


We said that it needs to know the entire 
prefix of each element so that it can use the 
first element of tup as a backward index to 
pick the corresponding number from this 
prefix. 

Yes, because scramble needs to collect 
information about the prefix of each element 
in the same manner as sum-of-prefixes. 

The former needs to know the actual prefix, 
the latter needs to know the sum of the 
numbers in the prefix. 


1 . 
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Here is scramble-b 


A better question is: how does it work? 


(define scramble-b 
(lambda (tup rev-pre) 

(cond 

{{null? tup) (quote ())) 

(else 

{cons {pick {car tup) 

{cons {car tup) rev-pre)) 
{scramble-b {cdr tup) 

{cons {car tup) rev-pre))))))) 

How do we get scramble-b started? 


What does rev-pre abbreviate? That is always the key to these functions. 

Apparently, rev-pre stands for reversed 
prefix. 


If 

tup is (1 1 1 3 4 2 1 1 9 2) 
and 

rev-pre is () 

what is the reversed prefix of 
{cdr tup) 


It is the result of consing {car tup) onto 
rev-pre : (1). 


If Since {car tup) is 2, it is 

tup is (2 1 1 9 2) (2 4 3 1 1 1). 

and 

rev-pre is (4 3 1 1 1) 
what is the reversed prefix of 
(119 2 ) 

which is {cdr tup) 


Do we need to know what 
rev-pre is when 
tup is () 


No, because we know the result of 
{scramble tup rev-pre) 
when tup is the empty list. 
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How does scramble-b work? The function scramble-b receives a tup and 

the reverse of its proper prefix. If the tup is 
empty, it returns the empty list. Otherwise, 
it constructs the reverse of the complete 
prefix and uses the first element of tup as a 
backward index into this list. It then 
processes the rest of the tup and conse s the 
two results together. 


How does scramble get scramble-b started? Now, it’s no big deal. We just give scramble-b 

the tup and the empty list, which represents 
the reverse of the proper prefix of the tup: 

(define scramble 
(lambda (tup) 

( scramble-b tup (quote ())))) 


Let’s try it. 


That’s a good idea. 


The function scramble is an unusual Okay, 

example. You may want to work through it a 
few more times before we have a snack. 


Tea time. 


Don’t eat too much. Leave some room for 
dinner. 


Welcome Back to the Show 
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What is ( multirember a lat) (shrimp salad salad and), 

where a is tuna but we already knew that from chapter 3. 

and 

lat is (shrimp salad tuna salad and tuna) 


Does a change as multirember traverses lat No, a always stands for tuna. 


Well, wouldn’t it be better if we did not have Yes, it sure would be a big help in reading 
to remind multirember for every natural such functions, especially if several things 

recursion that a still stands for tuna don’t change. 


That’s right. Do you think the following 
definition of multirember is correct? 


(define multirember 
(lambda (a lat) 

((F (lambda ( mr) 

(lambda (lat) 

(cond 

((null? lat ) (quote ())) 
((eq? a (car lat)) 

(mr (cdr lat))) 

(else (cons (car lat) 

(mr (cdr lat)))))))) 



Whew, the F combinator in the middle looks 
difficult. 


What is this function? 

(define ??? 

((lambda (le) 

((lambda (/) (/ /)) 

(lambda (/) 

(le (lambda ( x) ((/ /) x)))))) 
(lambda (length) 

(lambda (/) 

(cond 

((null? 1) 0) 

(else 

(addl (length (cdr /))))))))) 


It is the function length in the style of 
chapter 9, using F. 

(define length 
(Y (lambda (length) 

(lambda (/) 

(cond 

((null? 1) 0) 

(else 

(addl (length (cdr /))))))))) 
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And what is special about it? 


We do not use (define ...) to make length 
recursive. Using Y on a function that looks 
like length creates the recursive function. 


So is Y a special version of (define ...) Yes, that’s right. But we also agreed that the 

definition with (define ...) is easier to read 
than the definition with Y. 


That’s right. And we therefore have another But if all we want is a recursive function mr, 

way to write this kind of definition. why don’t we use this? 


(define multirember 


(define mr 

(lambda (a lat) 


(lambda (lat) 

((letrec 1 


(cond 


((mr (lambda (lat) 


((null? lat) (quote ())) 


(cond 


((eq? a (car lat)) 


((null? lat) (quote ())) 


(mr (cdr lat))) 


((eq? a (car lat)) 


(else 


(mr (cdr lat))) 


(cons (car lat) 


(else 


(mr (cdr lat))))))) 


(cons (car lat) 




(mr (cdr lat)))))))) 


(define multirember 

V 

mr) 

»w\ 


(lambda (a lat) 


j 

(mr lat))) 


^ L: (labels ((mr (let) ...)) (function mr)) 


Because (define ...) does not work here. 

The definition of mr refers to a which stands 
for the atom that multirember needs to 
remove from lat 

Do you remember that names don’t matter? 


Why not? 

Okay, that’s true, though obviously a refers 
to the first name in the definition of the 
function multirember . 

Yes, we said in chapter 9 that all names are 
equal. We can even change the names, as 
long as we do it consistently. 
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Correct. If we don’t like lat, we can use a-lat 
in the definition of multirember as long as we 
also re-name all occurrences of lat in the 
body of the (lambda ...). 


Yes, we could have used the following 
definition and nothing would have changed: 



Correct again. And this means we should Yet if we used b in the definition of 

also be able to use b instead of a because multirember 


(define id 
(lambda (a) 

«)) 



(define multirember 
(lambda (b a-lat) 
(mr a-lat))) 


is the same as 


the a in mr would no longer make any sense 


(define id 
(lambda (b) 

b )) 


Yes: the name a makes sense only inside the 
definition of multirember. In general, the 
names for a function’s arguments make sense 
only inside of (lambda ...). 


And that is precisely why we need 
(letrec ...) 

What do you think is the purpose of the 
nested box? 

Is the nested box important otherwise? 


Okay, that explains things. 


It separates the two parts of a (letrec ...): 
the naming part, which is the nested box, 
and the value part, which is mr. 


No, the nested box is merely an annotation 
that we use to help distinguish the two parts 
of (letrec ...). Once we get accustomed to 
the shape of (letrec ...), we will stop 
drawing the inner box. 
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What do we use the naming part for? 


And the value part? 


Does this mean that 
(letrec ((mr ...)) mr) 
defines and returns a recursive function? 

Yes, but they are important. 

What is the value of 

((letrec ((mr ...)) mr) lat) 

What is the value of (multirember a lat) 

where a is pie 

and 

lat is (apple custard pie linzer pie torte) 

How can we determine this value? 


The first line in the definition of multirember 
is no longer (cond ...) but 
((letrec ((mr ...)) mr) lat) 

What does this mean? 

i 

What is the first line in mr 


The naming part defines a recursive function 
though unlike defined functions; a function 
defined in the naming part of (letrec ...) 
knows all the arguments of all the 
surrounding (lambda ...) expressions. 

It tells us what the result of the (letrec ...) 
is. It may refer to the named recursive 
function. 

Precisely. Isn’t that a lot of parentheses for 
saying just that? 


Okay, let’s go on. 

It is the result of applying the recursive 
function mr to lat. 


(apple custard linzer torte), 
but we already knew this. 


That’s more interesting. 

We said that it defines the recursive function 
mr and applies it to lat . 


It is something we are quite familiar with: 
(cond ...). We now ask questions the way 
we did in chapter 2. 
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What is the first question? 

(null? lat), which is false. 

And the next question? 

(eq? (car lat) a), which is false. 

Why? 

Because a still stands for pie, and (car lat) is 
apple. 

That’s correct: mr always knows about a 
which doesn’t change while we look through 
lat 

Yes. 

Is it as if multirember had defined a function 
rarpj e and had used it on lat 

Correct, and the good thing is that no other 
function can refer to mrpj e . 

(define mrpj e 

(lambda (lat) 

(cond 

((null? lat) (quote ())) 

((eq? (car lat) (quote pie)) 

(rarpje (cdr lat))) 

(else (cons (car lat) 

(mr pie ( cdr lat))))))) 




Why is define underlined? 

We use (define ...) to express that the 
underlined definition does not actually exist, 
but imagining it helps our understanding. 

Is it all clear now? 

This is easy as apple pie. 
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Would it make any difference if we changed 
the definition a little bit more like this? 

(define multirember 
(lambda (a lat) 

(letrec 

((mr (lambda ( lat) 

(cond 

{{null? lat) (quote ())) 
{{eq? a {car lat)) 

{mr {cdr lat))) 

(else 

{cons {car lat) 

{mr {cdr lat)))))))) 

{mr lat)))) 


The difference between this and the previous 
definition isn’t that big. 

(Look at the third and last lines.) 


The first line in (lambda (a lat) ...) is now Yes, so multirember first defines the recursive 
of the shape function mr that knows about a. 

(letrec {{mr ...)) (mr lat)) 


And then? 


The value part of (letrec ...) uses mr on 
lat , so from here things proceed as before. 


That’s correct. Isn’t (letrec ...) easy as pie? We prefer (linzer torte). 


Is it clear now what (letrec ...) does? Yes, and it is better than Y. 



The Twelfth Commandment 

Use (letrec ...) to remove arguments that do not 
change for recursive applications. 


How does rember relate to multirember The function rember removes the first 

occurrence of some given atom in a list of 
atoms; multirember removes all occurrences. 
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Can rember also remove numbers from a list 
of numbers or S-expressions from a list of 
S-expressions? 


Not really, but in The Little Schemer we 
defined the function rember-f , which given 
the right argument could create those 
functions: 

(define rember-f 
(lambda (test?) 

(lambda (a l) 

(cond 

((null? 1) (quote ())) 

((test? (car l) a) (cdr l)) 

(else (cons (car l) 

((rember-f test?) a 
(cdr /)))))))) 


Give a name to the function returned by 
(rember-f test?) 
where 

test? is eq? 


(define rember-eq? (rember-f test?)) 

where 

test? is eq?. 


Is rember-eq? really rember 


It is, but hold on tight; we will see more of 
this in a moment. 


Can you define the function multirember-f 
which relates to multirember in the same way 
rember-f relates to rember 


That is not difficult: 


(define multirember-f 
(lambda (test?) 

(lambda (a lat) 

(cond 

((null? lat) (quote ())) 

((test? (car lat) a) 
((multirember-f test?) a 
(cdr lat))) 

(else (cons (car lat) 

((multirember-f test?) a 
(cdr lat)))))))) 
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Explain in your words what multirember-f 
does. 


Is it true that during this traversal the result 
of ( multirember-f test?) is always the same? 

Perhaps multirember-f should name it m-f 


Here are ours: 

“The function multirember-f accepts a 
function test? and returns a new function. 
Let us call this latter function m-f. The 
function m-f takes an atom a and a list of 
atoms lat and traverses the latter. Any 
atom b in lat for which (test? b a) is true, 
is removed.” 

Yes, it is always the function for which we 
just used the name m-f . 


Could we use (letrec ...) for this purpose? 


Yes, we could define multirember-f with 
(letrec ...) so that we don’t need to 
re-determine the value of 
( multirember-f test?) 


Is this a new use of (letrec ...)? 


(define multirember-f 

(lambda (test?) 
(letrec 

l ((«■*-/ 


"»-/))) 


(lambda (a lat) 

(cond 

((null? lat) (quote ())) 
((test? (car lat) a) 

(m-f a (cdr lat))) 

(else 

(cons (car lat) 

(m-f a (cdr lat)))))))) 


No, it still just defines a recursive function True enough, 

and returns it. 
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What is the value of ( multirember-f test?) 
where 

test? is eq? 


It is the function multirember : 


(define multirember 
(letrec 


{{mr 

(lambda (a lat) 

(cond 

{{null? lat) (quote ())) 

{{eq? {car lat) a) 

{mr a {cdr lat))) 

(else 

{cons {car lat) 

{mr a {cdr lat)))))))) 


mr)) 



Did you notice that no (lambda ...) 
surrounds the (letrec ...) 

It looks odd, but it is correct! 

Could we have used another name for the 
function named in (letrec ...) 

Yes, mr is multirember. 


Is this another way of writing the definition? Yes, this defines the same function. 

(define multirember 
(letrec 

((multirember 
(lambda (a lat) 

(cond 

{{null? lat) (quote ())) 

{{eq? {car lat) a) 

{multirember a {cdr lat))) 

(else 

{cons {car lat) 

{multirember a 

_ {cdr lat)))))))) 

multirember)) 
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Since (letrec ...) defines a recursive 
function and since (define ...) pairs up 
names with values, we could eliminate 
(letrec ...) here, right? 



What is the value of ( member? a lat) 

where a is ice 

and 

lat is (salad greens with pears brie cheese 

frozen yogurt) 


Is it true that a remains the same for all 
natural recursions while we determine this 
value? 
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Yes, we could and we would get back our old 
friend multirember. 



#f, 

ice cream is good, too. 


Yes, a is always ice. Should we use The 
Twelfth Commandment? 


Chapter 12 


Yes, here is one way of using (letrec ...) 
with this function: 


Here is an alternative: 


(define member? 
(lambda (a lat) 
((letrec 


(( yes? (lambda (/) 

(cond 


(( null? 1) #f) 
(( eq? (car l) i 


#o 

(else (yes? (cdr l))))))) 



yes?) 

lat))) 


Do you also like this version? 


(define member? 

(lambda (a 
(letrec 

((yes? (lambda (/) 

(cond 
((null? 1) 


(else (yes? (cdr /))))))) 


(yes? lat)))) 


Did you notice that we no longer use nested 
boxes for (letrec ...) 


Yes. We are now used to the shape of 
(letrec ...) and won’t confuse the naming 
part with the value part anymore. 


Do these lists represent sets? 
(tomatoes and macaroni) 
(macaroni and cheese) 


Yes, they are sets because no atom occurs 
twice in these lists. 


Do you remember what (union setl set2) is (tomatoes casserole macaroni and cheese), 
where 

setl is (tomatoes and macaroni casserole) 
and 

set2 is (macaroni and cheese) 


Write union 


(define union 

(lambda (setl set2) 

(cond 

((null? setl) set2) 

((member? (car setl) set2) 

(union (cdr setl) set2)) 

(else (cons (car setl) 

(union (cdr setl) set2)))))) 
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Is it true that the value of set2 always stays 
the same when determining the value of 
(union setl set2) 


Yes, 

because union is like rember and member? 
in that it takes two arguments but only 
changes one when recurring. 


Is it true that we can rewrite union in the 
same way as we rewrote rember 



Could we also have written it like this? 


Yes 


(define union 

(lambda (setl set2) 
(letrec 

((A (lambda (set) 

(cond 


(A setl)))) 


((null? set) set2) 
((member? (car set) set2) 
(A (cdr set))) 

(else (cons (car set) 

(A (cdr set)))))))) 


Correct: A is just a name like U Absolutely not, but choose names that 

Does it matter what name we use? matter to you and everyone else who wants 

to enjoy your definitions. 


So why do we choose the name U 


To keep the boxes from getting too wide, we 
use single letter names within (letrec ...) 
for such minor functions. 
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Can you think of a better name for U 

This should be an old shoe by now. 

Now, does it work? 

It should. 

Explain in your words how the new version 
of union works. 

Our words: 

“First, we define another function U that 
cdrs down set , consmg up all elements 
that are not a member of set2. Eventually 
U will cons all these elements onto set2. 
Second, union applies U to setl .” 

How does U know about set2 

Since U is defined using (letrec ...) inside 
of union , it knows about all the things that 
union knows about. 

And does it have to pass around set2 

No, it does not. 

How does U know about member? 

Everyone knows the function member?. 

Does it mean that the definition of union 
depends on the definition of member? 

It does, but member? works, so this is no 
problem. 

Suppose we had defined member? as follows. 

But this would confuse unionl 

(define member? 

(lambda ( lat a) 

(cond 

{{null? lat) #f) 

{{eq? {car lat) a) #t) 

(else {member? {cdr lat) a))))) 




Why? 

Because this member? takes its arguments in 
a different order. 
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What changed? 


Does member? work? 


But? 


Oh? 


Perhaps we should avoid this. 


Well, (letrec ...) can define more than just 
a single function. 

Didn’t you notice the extra pair of 
parentheses around the function definitions 
in (letrec ...) 

With (letrec ...) we can define more than 
just one function by putting more than one 
function definition between the extra pair of 
parentheses. 


Now member? takes a list first and an atom 
second. 

It works in that we can still use this new 
definition of member? to find out whether or 
not some atom is in a list. 

With this new definition, union will no 
longer work. 


Yes, 

because union assumes that member? 
takes its arguments in a certain order. 

How? 


Nobody said so. 


Yes. 


This could help with union. 
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Here is a skeleton: 


(define union 
(lambda (setl set2) 
(letrec 


(U setl)))) 



Fill in the dots. 


((U (lambda (set) 

(cond 

((null? set) set2) 

((member? (car set) set2) 

(U (cdr set))) 

(else (cons (car set) 

(U (cdr set))))))) 

(member? 

(lambda (a lat) 

(cond 

((null? lat) #f) 

((eq? (car lat) a) #t) 

(else (member? a (cdr lat))))))) 


The Thirteenth Commandment 


Use (letrec ... ) to hide and to protect functions 


Could we also have written this? 



Presumably. 
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Are we happy now? 

Well, almost. 

Almost? 

The definition of member? inside of union 
ignores The Twelfth Commandment. 

It does? 

Yes, the recursive call to member? passes 
along the parameter a. 

And its value does not change? 

No, it doesn’t! 

So we can write something like this? 

Yes, and here is how we fill in the dots: 

(define union 

(lambda ( setl set2) 

(letrec 

((U (lambda (set) 

(cond 

((null? set) set2) 

((M? (car set) set2) 

(U (cdr set))) 

(else (cons (car set) 

(U (cdr set))))))) 

(M? ...)) 

(U sell)))) 


• • • 

(lambda (a lat) 

(letrec 

((N? (lambda (lat) 

(cond 

((null? lat) #f) 

((eq? (car lat) a) #t) 

(else (N? (cdr lat))))))) 

(N? lat))) 

• • • 






Now we are happy, right? 


Yes! 

Did you notice that set2 is not an argument 

of U 


It doesn’t have to be because union knows 
about set2 and U is inside of union. 

Do we know enough about union now? 


Yes, we do! 

Do we deserve a break now? 


We deserve dinner or something equally 
substantial. 
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True, but hold the dessert. 

Why? 

We need to protect a few more functions. 

Which ones? 

Do you remember two-in-a-row? 

Sure, it is the function that checks whether 
some atom occurs twice in a row in some list. 
It is a perfect candidate for protection. 

Yes, it is. Can you explain why? 

Here are our words: 

“Auxiliary functions like two-in-a-row-b? 
are always used on specific values that 
make sense for the functions we want to 
define. To make sure that these minor 
functions always receive the correct values, 
we hide such functions where they belong.” 

So how do we hide two-in-a-row-b? 

The same way we hide other functions: 


(define two-in-a-row? 

(lambda (lat) 

(letrec 

((W (lambda (a lat) 

(cond 

((null? lat) #f ) 

(else (or (eq? (car lat) a) 

(W (car lat) 

(cdr Zaf)))))))) 

(cond 

((null? lat) #f ) 

(else (W (car lat) (cdr lat))))))) 



Does the minor function W need to know 
the argument lat of two-in-a-row? 

No, W also takes lat as an argument. 
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Is it then okay to hide two-in-a-row-b? like 
this: 



Yes, it is a perfectly safe way to protect the 
minor function W. It is still not visible to 
anybody but two-in-a-row? and works 
perfectly. 


Good, let’s look at another pair of functions 


Let’s guess: it’s sum-of-prefixes-b and 
sum- of-prefixes . 


Protect sum-of-prefixes-b 


(define sum-of-prefixes 

(lambda (tup) 

(letrec 

((S (lambda (sss tup) 

(cond 


(5 0 tup)))) 


((null? tup) (quote ())) 
(else 

(cons (HH sss (car tup)) 
(S (HI- sss (car tup)) 

(cdr tup)))))))) 


Is S similar to W in that it does not rely on 
sum-of-prefixes’s argument? 


It is. We can also hide it without putting it 
inside (lambda ...) but we don’t need to 
practice that anymore. 
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We should also protect scramble-b. Here is 
the skeleton: 


(define scramble 
(lambda (tup) 

(letrec 

(P tup (quote ()))))) 
Fill in the dots. 



(lambda (tup rp) 

(cond 

((null? tup) (quote ())) 

(else (cons (pick (car tup) 

(cons (car tup) rp)) 
(P (cdr tup) 

(cons (car tup) rp)))))) 



Can we define scramble using the following 
skeleton? 



Yes, but can’t this wait? 


Yes, it can. Now it is time for dessert. 


How about black currant sorbet? 


Take Cover 

















(and macaroni). 


What is the value of ( intersect setl set2) 
where 

setl is (tomatoes and macaroni) 
and 

set2 is (macaroni and cheese) 

Is intersect an old acquaintance? Yes, we have known intersect for as long as 

we have known union . 


Write intersect 


What would this definition look like if we 
hadn’t forgotten The Twelfth 
Commandment ? 



(define intersect 
(lambda (setl set2) 

(letrec 

((/ (lambda (set) 

(cond 


((null? set) (quote ())) 
((member? (car set) set2) 
(cons (car set) 

(I (cdr set)))) 

(else (I (cdr set))))))) 


(I setl)))) 
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Do you also recall intersectall 

i 

Isn’t that the function that intersects a list 
of sets? 


(define intersectall 
(lambda (Iset) 

(cond 

{{null? {cdr Iset)) {car Iset)) 

(else {intersect {car Iset) 

{intersectall {cdr Iset))))))) 



Why don’t we ask {null? Iset) 

There is no need to ask this question because 
The Little Schemer assumes that the list of 
sets for intersectall is not empty. 

How could we write a version of intersectall 
that makes no assumptions about the list of 
sets? 

That’s easy: We ask {null? Iset) and then 
just use the two cond-lines from the earlier 
intersectall : 

i 

(define intersectall 
(lambda {Iset) 

(cond 

{{null? Iset) (quote ())) 

{{null? {cdr Iset)) {car Iset)) 

(else {intersect {car Iset) 

{intersectall 
(cdr Iset))))))) 

Are you sure that this definition is okay? 

Yes? No? 

Are there two base cases for just one 
argument? 

No, the first question is just to make sure 
that Iset is not empty before the function 
goes through the list of sets. 

But once we know it isn’t empty we never 
have to ask the question again. 

Correct, because intersectall does not recur 
when it knows that the cdr of the list is 
empty. 
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What should we do then? 


Ask the question once and use the old 
version of intersectall if the list is not empty. 



And how would you do this? 


Could we use another function? 


Where do we place the function? 


Should we use (letrec ...)? 


Yes, the new version of intersectall could 
hide the old one inside a (letrec ...) 


(define intersectall 
(lambda ( Iset) 
(letrec 

((intersectall 


(lambda (Iset) 

(cond 

((null? (cdr Iset)) 

(car Iset)) 

(else (intersect (car Iset) 

(intersectall 
(cdr Iset)))))))) 


(cond 


((null? Iset) (quote ())) 
(else (intersectall Iset)))))) 


Could we have used A as the name of the 
function that we defined with (letrec ...) 


Sure, intersectall is just a better name, 
though a bit long for these boxes. 


(define intersectall 
(lambda (Iset) 

(letrec 

((A (lambda (Iset) 

(cond 


(cond 


((null? (cdr Iset)) 

(car Iset)) 

(else (intersect (car Iset) 

(A (cdr Iset)))))))) 


((null? Iset) (quote ())) 
(else (A Iset)))))) 



Great! We are pleased to see that you are 
comfortable with (letrec ...). 


One more time: we can use whatever name 
we want for such a minor function if nobody 
else relies on it. 


Yes, because (letrec ...) hides definitions, 
and the names matter only inside of 
(letrec ...). 


Is this similar to (lambda (x y) M) 


Yes, it is. The names x and y matter only 
inside of M , whatever M is. And in 
(letrec ((x F) (y G)) M) 
the names x and y matter only inside of F, 
G , and M , whatever F, G, and M are. 
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Why do we ask {null? Iset ) before we use A 


What is ( intersectall Iset) 
where 

Iset is ((3 mangos and) 

(3 kiwis and) 

(3 hamburgers)) 

What is ( intersectall Iset) 
where 

Iset is ((3 steaks and) 

(no food and) 

(three baked potatoes) 
(3 diet hamburgers)) 

What is {intersectall Iset) 
where 

Iset is ((3 mangoes and) 

o 

(3 diet hamburgers)) 
Why is this? 


Why is this? 


But this does not show how intersectall 
determines that the intersection is empty. 


Wouldn’t it be better if intersectall didn’t 
have to intersect each set with the empty set 
and if it could instead say “This is it: the 
result is () and that’s all there is to it.” 


The question {null? Iset) is not a part of A. 
Once we know that the list of sets is 
non-empty, we need to check for only the list 
containing a single set. 

( 3 ). 


()• 


( • 


The intersection of (3 mangos and), (), and 
(3 diet hamburgers) is the empty set. 

When there is an empty set in the list of 
sets, {intersectall Iset) returns the empty set. 

No, it doesn’t. Instead, it keeps intersecting 
the empty set with some set until the list of 
sets is exhausted. 

That would be an improvement. It could 
save us a lot of work if we need to determine 
the result of {intersect Iset). 
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Well, there actually is a way to say such There is? 

things. 


Yes, we haven’t shown you (letcc ...) yet. Why haven’t we mentioned it before? 


Because we did not need it until now. How would intersectall use (letcc ...)? 


That’s simple. Here we go: 

(define intersectall 
(lambda ( Iset) 

(letcc 1 hop 
(letrec 

((^4 (lambda (Iset) 

(cond 

((null? (car Iset)) 

(hop (quote ())) 2 ) 
((null? (cdr Iset)) 

(car Iset)) 

(else 

(intersect (car Iset) 

(A (cdr Iset)))))))) 

(cond 

((null? Iset) (quote ())) 

(else (A Iset))))))) 


Alonzo Church (1903-1995) would have 

written: 

(define intersectall 
(lambda (Iset) 

(call-with-current-continuation 1 
(lambda (hop) 

(letrec 

((A (lambda (Iset) 

(cond 

((null? (car Iset)) 

(hop (quote ()))) 
((null? (cdr Iset)) 

(car Iset)) 

(else 

(intersect (car Iset) 
(A (cdr Iset)))))))) 

(cond 

((null? Iset) (quote ())) 

(else (A /set)))))))) 



L:(catch ’hop . . . ) 



L: (throw ’hop (quote ())) 



S: This is Scheme. 


Doesn’t this look easy? 


We prefer the (letcc ...) version. It only has 
two new lines. 


Yes, we added one line at the beginning and It really looks like three lines, 
one cond-line inside the minor function A 
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A line in a (cond ...) is one line, even if we 
need more than one line to write it down. 

How do you like the first new line? 

The first line with (letcc ... looks pretty 
mysterious. 

But the first cond-line in A should be 
obvious: we ask one extra question 
{null? {car Iset)) 

and if it is true, A uses hop as if it were a 
function. 

Correct: A will hop to the right place. How 
does this topping work? 

Now that is a different question. We could 
just try and see. 

Why don’t we try it with an example? 

What is the value of {intersectall Iset) 
where 

Iset is ((3 mangoes and) 

0 

(3 diet hamburgers)) 

Yes, that is a good example. We want to 
know how things work when one of the sets 
is empty. 

So how do we determine the answer for 
{intersectall Iset) 

Well, the first thing in intersectall is 
(letcc hop ... 
which looks mysterious. 

Since we don’t know what this line does, it is 
probably best to ignore it for the time being. 
What next? 

We ask {null? Iset), which in this case is not 
true. 

And so we go on and ... 

... determine the value of {A Iset) where Iset 
is the list of sets. 

What is the next question? 

{null? {car Iset)). 

Is this true? 

No, {car Iset) is the set 
(3 mangos and). 
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Is this why we ask (null? (cdr Iset)) 

Yes, and it is not true either. 

else 

Of course. 

And now we recur? 

Yes, we remember that ( car Iset) is 
(3 mangos and), and that we must intersect 
this set with the result of (A ( cdr Iset)). 

How do we determine the value of (A Iset) 
where 

Iset is (() 

(3 diet hamburgers)) 

We ask (null? (car Iset)). 

Which is true. 

And now we need to know the value of 
(hop (quote ())). 

Recall that we wanted to intersect the set 
(3 mangos and) with the result of the natural 
recursion? 

Yes. 

And that there is 

(letcc hop ... 
which we ignored earlier? 

Yes, and (hop (quote ())) seems to have 

something to do with this line. 

It does. The two lines are like a compass 
needle and the North Pole. The North Pole 
attracts one end of a compass needle, 
regardless of where in the world we are. 

What does that mean? 

It basically means: 

“Forget what we had remembered to do 
after leaving behind (letcc hop 
and before encountering ( hop M) And then 
act as if we were to determine the value of 
(letcc hop M) whatever M is.” 

But how do we forget something? 
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Easy: we do not do it. 

You mean we do not intersect the set 
(3 mangos and) with the result of the natural 

recursion? 

Yes. And even better, when we need to 
determine the value of something that looks 
like 

(letcc hop (quote ())) 
we actually know its answer. 

The answer should be (), shouldn’t it? 

Yes, it is () 

That’s what we wanted. 

And it is what we got. 

Amazing! We did not do any intersecting at 
all. 

That’s right: we said hop and arrived at the 
right place with the result. 

This is neat. Let’s hop some more! 


The Fourteenth Commandment 

Use (letcc ... ) to return values abruptly and promptly. 


How about determining the value of We ignore (letcc hop . 

(intersectall Iset) 

where 

Iset is ((3 steaks and) 

(no food and) 

(three baked potatoes) 

(3 diet hamburgers)) 


And then? 


We determine the value of (A Iset) because 
Iset is not empty. 
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What do we ask next? 

{null? (car Iset)), which is false. 

And next? 

{null? {cdr Iset)), which is false. 

And next? 

We remember to intersect (3 steaks and) 
with the result of the natural recursion: 

(A {cdr Iset)) 
where 

Iset is ((3 steaks and) 

(no food and) 

(three baked potatoes) 

(3 diet hamburgers)). 

What happens now? 

We ask the same questions as above and find 
out that we need to intersect the set 
(no food and) with the result of (A Iset) 
where 

Iset is ((three baked potatoes) 

(3 diet hamburgers)). 

And afterward? 

We ask the same questions as above and find 
out that we need to intersect the set 
(three baked potatoes) with the result of 

(A Iset) 
where 

Iset is ((3 diet hamburgers)). 

And then? 

We ask {null? {car Iset)), which is false. 

And then? 

We ask {null? {cdr Iset)), which is true. 

And so we know what the value of (A Iset) is 
where 

Iset is ((3 diet hamburgers)) 

Yes, it is (3 diet hamburgers). 
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Are we done now? No! With (3 diet hamburgers) as the value, 

we now have three intersects to go back and 
pick up. 

We need to: 

a. intersect (three baked potatotes) with 
(3 diet hamburgers); 

b. intersect (no food and) with 
the value of a; 

c. intersect (3 steaks and) with 
the value of b. 

And then, at the end, we must not forget 
about (letcc hop . 


Yes, so what is ( intersect setl set2) (). 

where 

setl is (three baked potatoes) 
and 

set2 is (3 diet hamburgers) 


So are we done? 


No, we need to intersect this set with 
(no food and). 


Yes, so what is ( intersect setl set2) (). 

where 

setl is (no food and) 
and 

set2 is () 


So are we done now? 


No, we still need to intersect this set with 
(3 steaks and). 


But this is also empty. 


Yes, it is. 


So are we done? 


Almost, but there is still the mysterious 
(letcc hop 

that we ignored initially. 
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Oh, yes. We must now determine the value of 
(letcc hop (quote ())) 

That’s correct. But what does this line do 
now that we did not use hop ? 

Nothing. 

What do you mean, nothing? 

When we need to determine the value of 
(letcc hop (quote ())) 
there is nothing left to do. We know the 
value. 

You mean, it is () again? 

Yes, it is () again. 

That’s simple. 

Isn’t it? 

Except that we needed to intersect the 
empty set several times with a set before we 
could say that the result of intersectall was 
the empty set. 

Is it a mistake of intersectall 

Yes, and it is also a mistake of intersect. 

In what sense? 

We could have defined intersect so that it 

would not do anything when its second 
argument is the empty set. 

Why its second argument? 

When setl is finally empty, it could be 
because it is always empty or because 
intersect has looked at all of its arguments. 
But when set2 is empty, intersect should not 
look at any elements in setl at all; it knows 
the result! 


Hop , Skip , and Jump 


47 



Should we have defined intersect with an Yes, that helps a bit. 

extra question about set2 

(define intersect 
(lambda (setl set2) 

(letrec 

((/ (lambda (setl) 

(cond 

((null? setl) (quote ())) 

((member? (car setl) 
set2) 

(cons (car setl) 

(I (cdr setl)))) 

(else (I (cdr setl))))))) 

(cond 

((null? set2) (quote ())) 

(else (I setl)))))) 


Would it make you happy? 


Actually, no. 


You are not easily satisfied. Well, intersect would immediately return the 

correct result but this still does not work 
right with intersectall. 


Why not? When one of the intersects returns () in 

intersectall , we know the result of 
intersectall. 


And shouldn’t intersectall say so? 


Yes, absolutely. 


Well, we could build in a question that looks But somehow that looks wrong. 

at the result of intersect and hops if 

necessary? 


Why wrong? 


Because intersect asks this very same 
question. We would just duplicate it. 
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Got it. You mean that we should have a Yes, that would be great, 

version of intersect that hops all the way 
over all the intersects in intersectall 


We can have this. 


Can (letcc ...) do this? Can we skip and 
jump from intersect ? 


Yes, we can use hop even in intersect if we But how would this work? How can intersect 

want to jump. know where to hop to when its second set is 

empty? 


Try this first: make intersect a minor 
function of intersectall using I as its name. 

(define intersectall 
(lambda ( Iset) 

(letcc hop 
(letrec 

((A...) 

(/...)) 

(cond 

{{null? Iset) (quote ())) 

(else {A Zse£))))))) 


((A (lambda {Iset) 

(cond 

{{null? {car Iset)) 

(hop (quote ()))) 

{{null? {cdr Iset)) 

{car Iset)) 

(else (/ {car Iset) 

{A {cdr Iset))))))) 

(/ (lambda {si s2) 

(letrec 

(( J (lambda {si) 

(cond 

{{null? si) (quote ())) 
{{member? {car si) s2) 
{J {cdr si))) 

(else {cons {car si) 

(J (cdr si)))))))) 

(cond 

{{null? s2) (quote ())) 

(else (J si))))))) 


What can we do with minor functions? We can do whatever we want with the minor 

version of intersect. As long as it does the 
right thing, nobody cares because it is 
protected. 
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Like what? 


We could have it check to see if the second 
argument is the empty set. If it is, we could 
use hop to return the empty set without 
further delay. 



What is the value of (intersectall Iset) We know it is (). 

where 

Iset is ((3 steaks and) 

(no food and) 

(three baked potatoes) 

(3 diet hamburgers)) 

Should we go through the whole thing again? We could skip the part when A looks at all 

the sets until Iset is almost empty. It is 
almost the same as before. 

What is different? Every time we recur we need to remember 

that we must use the minor function I on 
(car Iset) and the result of the natural 
recursion. 
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So what do we have to do when we reach the 
end of the recursion? 


With (3 diet hamburgers) as the value, we 
now have three Is to go back and pick up. 

We need to determine the value of 

a. / of (three baked potatotes) 
and (3 diet hamburgers); 

b. / of (no food and) 
and the value of a; 

c. I of (3 steaks and) 
and the value of b. 


Are there any alternatives? 


Correct: there are none. 


Okay, let’s go. What is the first question? {null? s2) 

where 

s2 is (3 diet hamburgers). 


Which is not true. 


No, it is not. 


Which means we ask for the minor function Yes, and we get () because 
J inside of I (three baked potatoes) 

and 

(3 diet hamburgers) 
have no common elements. 


What is the next thing to do? 


We determine the value of (/ si s2) 
where 

si is (no food and) 
and 

s2 is (). 


What is the first question that we ask now? {null? s2) 

where s2 is (). 


And then? 


We determine the value of 
(letcc hop (quote ())). 
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Why? 

Because ( hop (quote ())) is like a compass 
needle and it is attracted to the North Pole 
where the North Pole is (letcc hop . 

And what is the value of this? 

o- 

Done. 

Huh? Done? 

Yes, all done. 

That’s quite a feast. 

Satisfied? 

Yes, pretty much. 

Do you want to go hop, skip, and jump 
around the park before we consume some 
more food? 

That’s not a bad idea. 

Perhaps it will clear up your mind. 

And use up some calories. 

Can you write rember with (letrec ...) 

Sure can: 


(define rember 
(lambda (a lat) 

(letrec 

((R (lambda (lat) 

(cond 

((null? lat) (quote ())) 

((eq? (car lat) a) (cdr lat)) 
(else (cons (car lat) 

(R (cdr lat)))))))) 

(R lat)))) 
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(noodles spaghetti spatzle bean-thread). 


What is the value of 

( rember-beyond-first a lat) 
where a is roots 
and 

lat is (noodles 

spaghetti spatzle bean-thread 
roots 

potatoes yam 

others 

rice) 


And (rember-beyond-first (quote others) lat) 
where 

lat is (noodles 

spaghetti spatzle bean-thread 
roots 

potatoes yam 

others 

rice) 


(noodles 

spaghetti spatzle bean-thread 
roots 

potatoes yam). 


And (rember-beyond-first a lat) 

where a is sweetthing 

and 

lat is (noodles 

spaghetti spatzle bean-thread 
roots 

potatoes yam 

others 

rice) 


(noodles 

spaghetti spatzle bean-thread 
roots 

potatoes yam 
others 

rice). 
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And 

(rember-beyond-first (quote desserts) lat) 
where 

lat is (cookies 

chocolate mints 

caramel delight ginger snaps 
desserts 

chocolate mousse 
vanilla ice cream 
German chocolate cake 
more desserts 
gingerbreadman chocolate 
chip brownies) 

Can you describe in one sentence what 
rember-beyond-first does? 
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(cookies 
chocolate mints 
caramel delight ginger snaps). 


As always, here are our words: 

“The function rember-beyond-first takes an 
atom a and a lat and, if a occurs in the 
lat, removes all atoms from the lat beyond 
and including the first occurrence of a.” 

Yes, this is it. And it differs from rember in 
only one answer. 
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What is the value of (rember-upto-last a lat) 

where a is roots 

and 

lat is (noodles 

spaghetti spatzle bean-thread 
roots 

potatoes yam 

others 

rice) 

(potatoes yam 
others 
rice). 

And ( rember-upto-last a lat) 

(noodles 

where a is sweetthing 

spaghetti spatzle bean-thread 

and 

roots 

lat is (noodles 

potatoes yam 

spaghetti spatzle bean-thread 

others 

roots 

potatoes yam 

others 

rice) 

rice). 

Yes, and what is ( rember-upto-last a lat) 

(gingerbreadman chocolate 

where a is cookies 
and 

lat is (cookies 

chocolate mints 

caramel delight ginger snaps 

desserts 

chocolate mousse 
vanilla ice cream 

German chocolate cake 
more cookies 

gingerbreadman chocolate 
chip brownies) 

chip brownies). 

Can you describe in two sentences what 

Here are our two sentences: 

rember-upto-last does? 

“The function rember-upto-last takes an 
atom a and a lat and removes all the 
atoms from the lat up to and including the 
last occurrence of a. If there are no 
occurrences of a, rember-upto-last returns 
the lat.” 
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Does this sound like yet another version of 
rember 

Yes, it does. 

How would you change the function R in 
rember or rember-beyond-first to get 
rember-upto-last 

Both functions are the same except that 
upon discovering the atom a, the new version 
would not stop looking at elements in lat but 
would also throw away everything it had seen 
so far. 

You mean it would forget some computation 
that it had remembered somewhere? 

Yes, it would. 

Does this sound like intersectall 

It sounds like it: it knows that the first few 
atoms do not contribute to the final result. 
But then again it sounds different, too. 

Different in what sense? 

The function intersectall knows what the 
result is; rember-upto-last knows which 
pieces of the list are not in the result. 

But does it know where it can find the result? 

The result is the rember-upto-last of the rest 
of the list. 

Suppose rember-upto-last sees the atom a 
should it forget the pending computations, 
and should it restart the process of searching 
through the rest of the list? 

Yes, it should. 

We can do this. 

You mean we could use (letcc ...) to do 
this, too? 

Yes. 

How would it continue searching, but ignore 
the atoms that are waiting to be consed onto 
the result? 


56 


Chapter 13 






How would you say, “Do this or that to the Easy: do this or that to (cdr lat). 
rest of the list” ? 

And how would you say “Ignore something”? With a line like (skip ...), assuming the 

beginning of the function looks like 
(letcc skip. 


Well then ... ... if we had a line like 

(letcc skip 

at the beginning of the function, we could say 
(skip (R (cdr lat))) 
when necessary. 



Hop, Skip, and Jump 


57 



Yes, that’s the one. 


You mean the one 
where a is cookies 
and 

lat is (cookies 

chocolate mints 

caramel delight ginger snaps 
desserts 

chocolate mousse 
vanilla ice cream 
German chocolate cake 
more cookies 

gingerbreadman chocolate 
chip brownies) 


No problem. What is the first thing we do? 


We see (letcc skip 


and ignore it for a while. 


Great. And then? 


We ask (null? lat). 



Because we use R to determine the value of 
(rember-upto-last a lat). 


And (null? lat) is not true. 



Which means we skip and actually determine Yes. 
the value of 

(letcc skip (R (cdr lat))) 
where 

lat is (cookies 

chocolate mints 

caramel delight ginger snaps 
desserts 

chocolate mousse 
vanilla ice cream 
German chocolate cake 
more cookies 

gingerbreadman chocolate 
chip brownies) 
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What next? 

We ask ( null? lat). 

Which is not true. 

And neither is ( eq? (car lat) a). 

So what? 

We recur. 


How? We remember to cons chocolate onto the 

result of (R (cdr lat)) 
where 

lat is (chocolate mints 

caramel delight ginger snaps 
desserts 

chocolate mousse 
vanilla ice cream 
German chocolate cake 
more cookies 

gingerbreadman chocolate 
chip brownies). 

Next? Well, this goes on for a while. 


You mean it drags on and on with this Exactly, 

recursion. 


Should we gloss over the next steps? 


Yes, they’re pretty easy. 


What should we look at next? We should remember to cons chocolate, 

mints, caramel, delight, ginger, snaps, desserts, 
chocolate, mousse, vanilla, ice, cream, German, 
chocolate, cake, and more onto the result of 
(R (cdr lat)) 
where 

lat is (more cookies 

gingerbreadman chocolate 
chip brownies). 

And we must not forget the (letcc skip ... 
at the end! 


Hop, Skip , and Jump 


59 





That’s right. And what happens then? 


Well, right there we ask ( eq? (car lat) a) 
where 

a is cookies 
and 

lat is (cookies 

gingerbreadman chocolate 
chip brownies). 

Which is true. Right, and so we should (skip (R (cdr lat))). 

Yes, and that works just as before. You mean we eliminate all the pending 

conse s and determine the value of 
(letcc skip (R (cdr lat))) 
where 

lat is (cookies 

gingerbreadman chocolate 
chip brownies). 

Which we do by recursion. As always. 

i 

What do we have to do when we reach the We have to cons gingerbreadman, chocolate, 
end of the recursion? chip, and brownies onto (). 

Yes, and then we need to do the (letcc skip 
with this value. 

But we know how to do that. Yes, once we have a value, 

(letcc skip 

can be ignored completely. 

And so the result is? (gingerbreadman chocolate 

chip brownies). 

Doesn’t all this hopping and skipping and It sure does. We should take a break and 

jumping make you tired? have some refreshments now. 


Which is (gingerbreadman chocolate 

chip brownies) 
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Do you remember the function leftmost 

Is it the function that extracts the leftmost 
atom from a list of S-expressions? 

Yes, and here is the definition: 

Okay. 

(define leftmost 
(lambda (2) 

(cond 

((atom? (car l )) (car 2)) 

(else (leftmost (car 2)))))) 


What is the value of (leftmost 2) 
where 

l is (((a) b) (c d)) 

a, of course. 

And what is the value of (leftmost 2) 
where 

/ is (((a) ()) () (e)) 

It’s still a. 

How about this: (leftmost 2) 
where 

l is (((() a) ())) 

It should still be a, but there is actually no 
answer. 

Why is it not a 

In chapter 5, we said that the function 
leftmost finds the leftmost atom in a 
non-empty list of S-expressions that does not 
contain the empty list. 

Didn’t we just determine (leftmost 2) where 
the list 2 contained an empty list? 

Yes, we did: 2 was (((a) ()) () (e)). 

Shouldn’t we be able to define a version of 
leftmost that does not restrict the shape of 
its argument? 

We definitely should. 
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Which atom can occur in the leftmost 
position of a list of S-expressions? 

Every atom may occur as the leftmost atom 
of a list of S-expressions, including #f. 

Then how do we indicate that some 
argument for the unrestricted version of 
leftmost does not contain an atom? 

In that case, leftmost must return a 
non-atom. 

What should it return? 

It could return a list. 

Does it matter which list it returns? 

No, but () is the simplest list. 

Is this a good start? 

Yes. By adding the first line, leftmost now 
looks like a real *-function. 

(define leftmost 
(lambda (/) 

(cond 

{{null? 1) (quote ())) 

{{atom? {car l)) {car l)) 

(else ... 

{leftmost {car l)) 

••.)))) 



How do we determine the value of 
{leftmost l) 
where 

l ^ (((() a) ())) 

Using the new definition of leftmost , we 
quickly determine that l isn’t empty and 
doesn’t contain an atom in the car position. 
So we recur with {leftmost l) 
where 

l is ((() a) ()). 

What happens when we recur? 

We ask the same questions, we get the same 
answers, and we recur with {leftmost l) 
where 
l is (() a). 

And then? 

Then we recur with {leftmost l) 
where 
l is (). 
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What is the value of ( leftmost (quote ())) 


It is (), which means that we haven’t found a 
yet. 


What do we need to do? 


We also need to recur with the cdr of the 
list, if we can’t find an atom in the car. 


How do we determine whether 
(leftmost (car l)) 
found an atom? 


We ask (atom? (leftmost (car /))), because 
leftmost only returns an atom if its argument 
contains one. 


And when (atom? (leftmost (car /))) is true? 

Then we know what the leftmost atom is. 

And how do we say it? 

Easy: (leftmost (car /)). 

But if (atom? (leftmost (car /))) is false? 

Then we continue to look for an atom in the 
cdr of l. 

Define leftmost 


(define leftmost 
(lambda (/) 

(cond 

((null? 1) (quote ())) 

((atom? (car l)) (car l)) 

(else (cond 

((atom? (leftmost (carl))) | 
(leftmost (car l))) | 

(else (leftmost (cdr /)))))))) 



(leftmost l) 
where 

l is (((a) b) (c d)) 

a. 

(leftmost l) 
where 

l is (((a) ()) () (e)) 

a. 
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(leftmost l) 
where 


l is (((( a) ())) 


a, as it should be. 


Does the repetition of ( leftmost ( car /)) seem 
wrong? 


Yes, we have to read the same expression 
twice to understand the function. It is 
almost like passing along the same argument 
to a recursive function. 


Isn’t it? 


We could try to use (letrec ...) to get rid of 
such unwanted repetitions. 


Right, but does (letrec ...) give names to 
arbitrary things? 


Well, we have only used it for functions, but 
shouldn’t it work for other expressions too? 


We choose to use (let ...) instead. It is like To give a name to a repeated expression? 
(letrec ...) but it is used for exactly what 
we need to do now. 


Yes, (let ...) also has a naming part and a 
value part, just like (letrec ...) We use the 
latter to name the values of expressions. 


Okay, so far it looks like (letrec ...). Do we 
use the value part to determine the result 
with the help of these names? 


As we said, it looks like (letrec ...) but it How can we use it to name expressions? 
gives names to the values of expressions. 


We name the values of expressions, but 
ignoring this detail, we can sketch the new 
definition: 

(define leftmost 
(lambda (/) 

(cond 

{{null? 1) (quote ())) 

{{atom? {car /)) {car /)) 

(else ...)))) 


Can you complete this definition? 


How about? 


(let 1 ((a {leftmost {car /)))) 
(cond 

{{atom? a) a) 

(else {leftmost {cdr /))))) 


1 Like (and .. .), (let .. .) is an abbreviation: 

(let ((xi ai) ... (x n a n ))/?••• ) 

= ((lambda (x^ ... x n ) /?...) o.\ ... an) 
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Isn’t this much easier to read? 


Yes, it is. 


What is the value of (remberl * a l) 

where a is salad 

and 

l is ((Swedish rye) 

(French (mustard salad turkey)) 
salad) 


((Swedish rye) 

(French (mustard turkey)) 
salad). 


(remberl* a l) 
where a is meat 
and 

l is ((pasta meat) 

pasta 

(noodles meat sauce) 
meat tomatoes) 


((pasta) 

pasta 

(noodles meat sauce) 
meat tomatoes). 


Take a close look at remberl * It even has the same expressions underlined. 


(define remberl* 

(lambda (a l) 

(cond 

((null? 1) (quote ())) 

((atom? (car l)) 

(cond 

((eg? (car l ) a) (cdr l)) 

(else (cons (car l) 

(remberl* a (cdr /)))))) 

(else 

(cond 

((eqlist? 

(remberl* a (car /)) 

(car /)) 

(cons (car l) 

(remberl* a (cdr /)))) 

(else (cons (remberl* a (car /)) 
_ (cdr l)))))))) 

Fix remberl * using The Twelfth 
Commandment. 


(define remberl* 

(lambda (a l) 

(letrec 

((R (lambda (/) 

(cond 

((null? 1) (quote ())) 
((atom? (car /)) 

(cond 

((eq? (car /) a) (cdr l)) 
(else (cons (car l) 

(R (cdr /)))))) 

(else 
(cond 
((eqlist ? 

(R (car l)) 

(car /)) 

(cons (car l) 

(R (cdr 1)))) 

(else (cons (R (car l)) 

(cdr /))))))))) 

(r m 
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What does ( remberl * a l) do? 


It removes the leftmost occurrence of a in l. 


Can you describe how remberl* works? Here is our description: 

“The function remberl* goes through the 
list of S-expressions. When there is a list in 
the car, it attempts to remove a from the 
car. If the car remains the same, a is not 
in the car, and remberl* must continue. 
When remberl* finds an atom in the list, 
and the atom is equal to a, it is removed.” 

Why do we use eqlist? instead of eq to Because eq? compares atoms, and eqlist? 

compare ( R ( car /)) with (car /) compares lists. 

Yes, the two functions use the same trick: 
leftmost attempts to find an atom in (car /) 
when (car l) is a list. If it doesn’t find one, it 
continues its search; otherwise, that atom is 
the result. 


Is remberl* related to leftmost 


Do the underlined instances of ( R { car /)) 
seem wrong? 


They certainly must seem wrong to anyone 
who reads the definition. We should remove 
them. 


Here is a sketch of a definition of remberl * 
that uses (let ...) 


Here is the rest of the minor function R 


(define remberl* 
(lambda (a l) 
(letrec 

((R (lambda (/) 

(cond 


(R 0 ))) 


{{null? 1) (quote ())) 
{{atom? {car l)) 

(cond 

{{eq? {car l) a) {cdr l)) 
(else {cons {car l) 

(R (cdr 0 ))))) 

(else...))))) 


(let {{av {R {car /)))) 

(cond 

{{eqlist? {car l) av) 

{cons {car l) {R {cdr /)))) 
(else {cons av {cdr /))))) 
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That’s precisely what we had in mind. 


Good. 


The Fifteenth Commandment 


Use (let . 


(preliminary version) 

) to name the values of repeated expressions 


Let’s do some more letting 


Good idea. 


What should we try? 


Any ideas? 


We could try it on depth 


* 


What is depth*? 


Oh, that’s right. We haven’t told you yet 
Here it is. 


(define depth* 
(lambda (/) 
(cond 


((null? 1) 1) 
((atom? (car /)) 
(depth* (cdr /))) 


(depth* 

(else 

(cond 


((> (depth 


* 


(cdr l )) 


(addl (depth* 
pth* (cdr /))) 


(car /)))) 


(depth* (cdr l 
(else 

(addl (depth 


* 


(car 1))))))))) 


It looks like a normal *-function 


Let’s try an example. Determine the value of 2. 

(depth* l) 

where 

l is ((pickled) peppers (peppers pickled)) 
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Here is another one: ( depth * l) 
where 

l is (margarine 

((bitter butter) 

(makes) 

(batter (bitter))) 
butter) 

4. 

And here is a truly good example: (depth* l) 
where 

l is (c (b (a b) a) a) 

Still no problem: 3 

But it is missing food. 

Now let’s go back and do what we actually 
wanted to do. 

Yes, we should try to use (let ...). 

What should we use (let ... ) for? 

We determine the value of (depth* (car /)) 
and the value of (depth* (cdr l)) at two 
different places. 

Do you mean that these repeated uses of 
depth* look like good opportunities for 
naming the values of expressions? 

Yes, they do. 

Let’s see what the new function looks like. 

How about this one? 


(define depth* 

(lambda (2) 

(let ((a (addl (depth* (car /)))) 

(d (depth* (cdr /)))) 

(cond 

((null? 1) 1) 

((atom? (car /)) d) 

(else (cond 

((> d a) d) 

(else a))))))) 



Should we try some examples? 

It should be correct. Using (let ... ) is 
straightforward. 
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Let’s try it anyway. What is the value of 
( depth* l) 
where 

/ is (() 

((bitter butter) 

(makes) 

(batter (bitter))) 
butter) 

It should be 4. We did something like this 
before. 

Let’s do this slowly. 

First, we ask (null? 1), which is false. 

Not quite. We need to name the values of 
(addl ( depth* (car l))) and (depth* (cdr /)) 
first! 

That’s true, but what is there to it? The 
names are a and d. 

But first we need the values! 

That’s true. The first expression for which 
we need to determine the value is 
(addl (depth* (car /))) 
where 

l is (() 

((bitter butter) 

(makes) 

(batter (bitter))) 
butter). 

How do we do that? 

We use depth* and check whether the 
argument is null?, which is true now. 

Not so fast: don’t forget to name the values! 

Whew: we need to determine the value of 
(addl (depth* (car /))) where l is (). 

And what is the value? 

There is no value: see The Law of Car. 
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Can you explain in your words what 
happened? 


Here are our words: 

“A (let ...) first determines the values of 
the named expressions. Then it associates 
a name with each value and determines 
the value of the expression in the value 
part. Since the value of the named 
expression in our example depends on the 
value of ( car l) before we know whether or 
not l is empty, this depth* is incorrect.” 


Here is depth* again. 

(define depth* 

(lambda (/) 

(cond 

((null? 1) 1) 

((atom? (car /)) 

(depth* (cdr /))) 

(else 

(cond 

((> (depth* (cdr /)) 

(addl (depth* (car /)))) 

(depth* (cdr /))) 

(else 

(addl (depth* (car /))))))))) 
Use (let ...) for the last cond-line. 


(define depth* 
(lambda (/) 
(cond 


((null? 1) 1) 
((atom? (car /)) 
(depth* (cdr /))) 


(depth* (cdr /))) 

(else 

(let ((a (addl (depth 


* 


(car /)))) 


(d (depth 


* 


(cdr /)))) 


(cond 


((> d a) d) 
(else a))))))) 


Why does this version of depth* work? If both (null? 1) and (atom? (car /)) are 

false, (car l ) and (cdr l ) are both lists, and it 
is okay to use depth* on both lists. 


Would we have needed to determine We would have had to determine the value of 

(depth* (car /)) and (depth* (cdr l )) twice if one of the expressions twice if we hadn’t used 
we hadn’t introduced names for their values? (let ...), depending on whether the depth of 

the car is greater than the depth of the cdr. 


Would we have needed to determine Yes. 

(leftmost (car /)) twice if we hadn’t 
introduced a name for its value? 
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Would we have needed to determine 
( remberl* (car /)) twice if we hadn’t 
introduced a name for its value? 


Yes. 


How should we use (let ...) in depth* if we 
want to use it right after finding out whether 
or not l is empty? 


Let’s do it! Here is an outline. 


(define depth* 
(lambda (/) 
(cond 

{{null? 1) 1) 
(else ...)))) 


Fill in the dots. 


After we know that {null? 1) is false, we only 
know that {cdr l) is a list; {car l) might still 
be an atom. And because of that, we should 
introduce a name for only the value of 
{depth* {cdr /)) and not for {depth* {car /)). 



And when can we use (let ...) for the 
repeated expression {addl {depth* {car /))) 

(define depth* 

(lambda (/) 

(cond 
{{null? 1) 1) 

(else ...)))) 


Fill in the dots again. 


When we know that {car l) is not an atom: 
• » • 

(let {{d {depth* {cdr /)))) 

(cond 

{{atom? {car /)) d) 

(else 

(let {{a {addl {depth* {car /))))) 
(cond 

((> d a) d) 

(else a)))))) 


Would we have needed to determine 
{depth* {cdr /)) twice if we hadn’t 
introduced a name for its value? 

If it doesn’t help to name the value of 
{depth* {cdr /)) we should check whether the 
new version of depth* is easier to read. 


No. If the first element of l is an atom, 
{depth* {cdr l)) is evaluated only once. 


Not really. The three nested conds hide 
what kinds of data the function sees. 
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So which version of depth* is our favorite 
version? 


(define depth* 

(lambda (/) 

(cond 

((null? 1) 1) 

((atom? (car /)) 

(depth* (cdr l))) 

(else 

(let ((a (addl (depth* (car /)))) 

(d (depth* (cdr /)))) 

(cond 
((> d a) d) 

(else a))))))) 


The Fifteenth Commandment 

(revised version ) 

Use (let ...) to name the values of repeated expressions 
in a function definition if they may be evaluated twice for 

one and the same use of the function. 


This definition of depth* looks quite short. 

And it does the right thing in the right way. 

It does, but this is actually unimportant. 

Why? 

Because we just wanted to practice letting 
things be the way they are supposed to be. 

Oh, yes. And we sure did. 

Can we make depth* more enjoyable? 

Can we? 
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We can. How do you like this variation? 

(define depth* 

(lambda (/) 

(cond 

{{null? 1) 1) 

{{atom? {car /)) 

{depth* {cdr /))) 

(else 

(let {{a {addl {depth* {car /)))) 

{d {depth* {cdr /)))) 

(if(> d a) d a)))))) 


This looks even simpler, but what 
does (if ...) do? 


The same as (cond ...) 

Better, (if...) asks only one question and 
provides two answers: if the question is true, 
it selects the first answer; otherwise, it 
selects the second answer. 


That’s clever. We should have known about 
this before. 1 


1 Like (and .. .), (if...) can be abbreviated: 
(if a (3 7 ) = (cond (a /?) (else 7 )) 


There is a time and place for everything. Back to depth*. 


One more thing. What is a good name for 

(lambda (n m) 

(if (> n m) n m)) 


max , 

because the function selects the larger of 
two numbers. 


Here is how to use max to simplify depth* Yes, no problem. 


(define depth* 


(define depth* 

(lambda (/) 


(lambda (/) 

(cond 


(cond 

{{null? 1) 1) 


{{null? 1) 1) 

{{atom? {car /)) 


{{atom? {car l)) 

{depth* {cdr /))) 


{depth* {cdr l))) 

(else 


(else {max 

(let ((a {addl {depth* {car /)))) 


{addl {depth* {car /))) 

{d {depth* {cdr /)))) 


{depth* {cdr /))))))) 

{max a d)))))) 




Can we rewrite it without (let {{a ...)) ...) 
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Here is another chance to practice letting: 
do it for the protected version of scramble 
from chapter 12: 



• • » 

(( P (lambda (tup rp) 

(cond 

((null? tup) (quote ())) 

(else 

(let ((rp (cons (car tup) rp))) 
(cons (pick (car tup) rp) 

(P (cdr tup) rp)))))))) 

t • t 

(define scramble 
(lambda (tup) 

(letrec 

((p •••)) 

(P tup (quote ()))))) 




How do you like scramble now? 

It’s perfect now. 

Go have a bacon, lettuce, and tomato sandwich. And don’t forget to let the lettuce dry. 

Try it with mustard or mayonnaise. 

Did that sandwich strengthen you? 

We hope so. 

Do you recall leftmost 

Sure, we talked about it at the beginning of 
this chapter. 


(define leftmost 
(lambda (l) 

(cond 

((null? 1) (quote ())) 

((atom? (car l)) (car l)) 

(else 

(let ((a (leftmost (car /)))) 

(cond 

((atom? a) a) 

(else (leftmost (cdr /))))))))) 



What is ( leftmost l) 
where 

l is (((a)) b (c)) 

It is a. 
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And how do we determine this? 

We have done this before. 

So how do we do it? 

We quickly determine that l isn’t empty and 
doesn’t contain an atom in the car position. 
So we recur with (leftmost l) 
where 
l is ((a)). 

What do we do next? 

We quickly determine that l isn’t empty and 
doesn’t contain an atom in the car position. 
So we recur with (leftmost l) 
where 
l is (a). 

And now? 

Now {car l) is a, so we are done. 

Are we really done? 

Well, we have the value for (leftmost l) 
where 
l is (a). 

What do we do with this value? 

We name it a and check whether it is an 
atom. Since it is an atom, we are done. 

Are we really, really done? 

Still not quite, but we have the value for 
(leftmost l) 
where 
l is ((a)). 

And what do we do with this value? 

We name it a again and check whether it is 
an atom. Since it is an atom, we are done. 

So, are we done now? 

No. We need to name a one more time, check 
that it is an atom one more time, and then 
we’re completely done. 
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Have we been here before? 


Yes, we have. When we discussed 
intersectall , we also discovered that we really 
had the final answer long before we could say 
so. 


And what did we do then? 


We used (letcc ...). 


Here is a new definition of leftmost Wow! 

4 _ _ _________ _ __ 

(define leftmost 
(lambda (/) 

(letcc skip 
(Im l skip)))) 


(define Im 
(lambda (/ out) 

(cond 

{{null? 1) (quote ())) 

{{atom? {car l)) {out {car /))) 
(else (let O 1 

{Im {car l) out) 

{Im {cdr l) out)))))) 



L: progn also works. 
S: begin also works. 


Did you notice the unusual (let ...) Yes, the (let ...) contains two expressions in 

the value part. 

What are they? The first one is 

{Im {car l) out). 

The one after that is 
{Im {cdr l) out). 


78 


Chapter 14 


Here are our thoughts: 

“When a (let ...) has two expressions in its 
value part, we must first determine the 
value of the first expression. If it has one, 
we ignore it and determine the value of the 
second expression 1 .” 

1 This is also true of (letrec . ..) and (letcc ...). 

What is (leftmost l) It should be a. 

where 

l is (((a)) b (c)) 


And how do we determine this? We will have to use the new definition of 

leftmost. 


Does this mean we start with (letcc skip ...) Yes, and as before we ignore it for a while. 

We just don’t forget that we have a North 
Pole called skip. 

So what do we do? We determine the value of (Im l out) 

where 

out is skip , the needle of a compass. 

Next? We quickly determine that l isn’t empty and 

doesn’t contain an atom in the car position. 

So we recur with (Im l out) 

where 

l is ((a)) 
and 

out is skip , the needle of a compass. 

And we also must remember that we will 
need to determine the value of (Im l out) 
where 

l is (b (c)) 
and 

out is skip. 


And what do you think it means to have two 
expressions in the value part of a (let ...) 
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What do we do next? 


We quickly determine that l isn’t empty and 
doesn’t contain an atom in the car position. 
So we recur with (Im l out ) 
where 
l is (a) 

and 

out is skip , the needle of a compass. 

And we also must remember that we will 
need to determine the value of 
(Im l out ) 
where 
l is () 
and 

out is still skip. 

What exactly are we remembering right now? We will need to determine the values of 

(Im l out ) 
where 
l is () 
and 

out is skip , the needle of a compass 
as well as (Im l out) 
where 

l is (b (c)) 
and 

out is skip , the needle of a compass. 

Don’t we have an atom in car of l now? We do. And that means we need to 

understand 
(out (car /)) 
where 
l is (a) 
and 

out is skip , the needle of a compass. 


What does that mean? We need to forget all the things we 

remembered to do and resume our work with 
(letcc skip a) 
where a is a. 
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Are we done? 


Yes, we have found the final value, a, and 
nothing else is left to do. 


Isn’t this peaceful? 


Yes, it is. We never need to ask again 
whether a is an atom. 


True or false: Im is only useful in 
conjunction with leftmost 


Here is one way to hide Im 

(define leftmost 
(letrec 

((Im (lambda (/ out) 

(cond 

((null? 1) (quote ())) 
((atom? (car l)) 

(out (car /))) 

(else 
(let () 

(Im (car l) out) 

(Im (cdr l) ow£))))))) 

(lambda (/) 

(letcc skip 

(Im l skip))))) 

Can you think of another? 


Yes, that’s true. We shouldn’t forget The 
Thirteenth Commandment when we use The 
Fourteenth. 

In chapter 12 we usually moved the minor 
function out of a (lambda ... )’s value part, 
but we can also move it in: 

(define leftmost 
(lambda (/) 

(letrec 

((Im (lambda (l out) 

(cond 

((null? 1) (quote ())) 
((atom? (car /)) 

(out (car l))) 

(else 
(let () 

(Im (car l) out) 

(Im (cdr l) ow£))))))) 

(letcc skip 
(Im l skip))))) 


Correct! Better yet: we can move the 
(letrec ...) into the value part of the 
(letcc ...) 

(define leftmost 
(lambda (2) 

(letcc skip 
(letrec (...) 

(Im l skip))))) 

Can you complete the definition? 


(Im (lambda (/ out) 

(cond 

((null? 1) (quote ())) 
((atom? (car l)) 

(out (car /))) 

(else (let () 

(Im (car l) out) 

(Im (cdr l) ow£)))))) 


This suggests that we should also use 
The Twelfth Commandment. 
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Why? 


The second argument of Im is always going 
to refer to skip . 


So? 


When an argument stays the same and when 
we have a name for it in the surroundings of 
the function definition, we can drop it. 


Rename out to skip 


Yes, all names are equal. 


(define leftmost 
(lambda (/) 

(letcc skip 
(letrec (...) 

(Im l sfcip))))) 


( Im (lambda (/ skip) 

(cond 


{{null? 1) (quote ())) 
{{atom? {car l)) 

{skip {car /))) 

(else 
(let () 

{Im {car l) skip) 

{Im {cdr l) skip)))))) 


Can we now drop skip as an argument to Im 


It is always the same argument, and the 
name skip is defined in the surroundings of 
the (letrec ...) so that everything works: 


(define leftmost 
(lambda (/) 
(letcc skip 
(letrec 


{{Im (lambda (/) 

(cond 


(Im /))))) 


{{null? 1) (quote ())) 
{{atom? {car l)) 

{skip {car l))) 

(else 
(let () 

{Im {car l)) 

(Im (cdr /)))))))) 
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Can you explain how the new leftmost 
works? 

Our explanation is: 

“The function leftmost sets up a North Pole 
in skip and then determines the value of 
(Im l). The function Im looks at every 
atom in l from left to right until it finds an 
atom and then uses skip to return this 
atom abruptly and promptly.” 

(This would be a good time to count Duane’s elephants.) 

Didn’t we say that leftmost and remberl* 
are related? 

Yes, we did. 

Is remberl * also a function that finds the 
final result yet checks many times that it did? 

No, in that regard remberl* is quite 
different. Every time it finds that the car of 
a list is a list, it works through the car and 
checks right afterwards with eqlist? whether 
anything changed. 

Does remberl* know when it failed to 
accomplish anything? 

It does: every time it encounters the empty 
list, it failed to find the atom that is 
supposed to be removed. 

Can we help remberl * by using a compass 
needle when it finds the empty list? 

With the help of a North Pole and a compass 
needle, we could abruptly and promptly 
signal that the list in the car of a list did not 
contain the interesting atom. 
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Here is a sketch of the function rm which 
takes advantage of this idea: 



It sets up a North Pole and then recurs on 
the car also using the corresponding compass 
needle. When it finds an empty list, it uses 
the needle to get back to a place where it 
should explore the cdr of a list. 


What kind of value does The atom no. 

(letcc oh 

(rm a (car l) oh)) 

yield when (car l) does not contain a 

i 

And what kind of value do we get when the A list with the first occurrence of a removed. 
car of l contains a 


Then what do we need to check next? 


We need to ask whether or not this value is 

an atom: 

(atom? 

(letcc oh 

(rm a (car l) oh))). 


And then? 


If it is an atom, rm must try to remove an 
occurrence of a in (cdr l). 


How do we try to remove the leftmost 
occurrence of a in (cdr l) 
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Is this the only thing we have to do? 

No, we must not forget to add on the 
unaltered (car l) when we succeed. We can 
do this with a simple cons : 

(cons (car l) (rm a (cdr l) oh)). 

And if (letcc oh ... )’s value is not an atom? 

Then it is a list, which means that rm 
succeeded in removing the first occurrence of 
a from ( car /). 

How do we build the result in this case? 

We cons the very value that 

(letcc oh 
(rm a (car l) oh)) 

produced onto (cdr /), which does not 
change. 

Which compass needle do we use to 
reconstruct this value? 

We don’t need one because we know rm will 
succeed in removing an atom. 

Does this mean we can use 
(rm a (car l) 0) 

Yes, any value will do, and 0 is a simple 
argument. 

Let’s do that! 

Here is a better version of rm: 


(define rm 

(lambda (a l oh) 

(cond 

((null? 1) (oh (quote no))) 

((atom? (car l)) 

(if (eq? (car l) a) 

(cdr l) 

(cons (car l) 

(rm a (cdr l) oh)))) 

(else 

(if (atom? 

(letcc oh 

(rm a (car l) oh))) 

(cons (car l) 

(rm a (cdr l) oh)) 

(cons (rm a (car l) 0) 

(cdr /))))))) 
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How can we use rm 

We need to set up a North Pole first. 

Why? 

If the list does not contain the atom we want 
to remove, we must be able to say no. 

What is the value of 

(letcc Say (rm a l Say)) 
where 

a is noodles 
and 

l is ((food) more (food)) 

((food) more (food)) 

because this list does not contain noodles. 

And how do we determine this? 

Since (car l) is a list, we set up a new North 
Pole, called oh, and recur with 
(rm a (car l) oh) 
where 

a is noodles 
and 

l is ((food) more (food)). 

Which means? 

After one more recursion, using the second 
cond-line, rm is used with noodles, the 
empty list, and the compass needle oh. Then 
it forgets the pending cons of food onto the 
result of the recursion and checks whether no 
is an atom. 

And no is an atom ... 

Yes, it is. So we recur with 

(cons (car l) (rm a (cdr l) Say)) 
where 

a is noodles 
and 

l is ((food) more (food)). 

How do we determine the value of 
(rm a l Say) 
where 

a is noodles 
and 

l is (more (food)) 

We recur with the list ((food)) and, if we get 
a result, we cons more onto it. 
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We have done something like this before. We 
might as well jump to the conclusion. 


How do we determine the value of 
(rm a l Say) 
where 

a is noodles 
and 

l is ((food)) 


Okay, so after we fail to remove an atom with Yes, and now we use 
(rm a l oh) (Say (quote no)), 

where 
l is (food) 
we try 

(rm a l Say) 
where 

a is noodles 
and 
l is () 

And what happens? We forget that we want to 

1. cons more onto the result and 

2. cons (food) onto the result of 1. 

Instead we determine the value of 
(letcc Say (quote no)). 

So we failed. Yes, we did. 

But remberl * would return the unaltered No problem: 

list, wouldn’t it? 


Since rm will succeed, any value will do, and 
() is another simple argument. 


Why do we use (rm a l (quote ())) 
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Didn’t we forget to name the values of some 
expression in remberl* 


(define remberl* 

(lambda (a i) 

(let (( new-l (letcc oh (rm a 
(if (atom? new-l) 


ohm 


new-l)))) 


We can also use (let ...) in rm: 


(define rm 
(lambda (a 
(cond 


oh) 


{{null? 1) {oh (quote no))) 
{{atom? {car l)) 

(if {eq? {car l) a) 

{cdr l) 

{cons {car l) 

{rm a {cdr l) oh)))) 


(else 


(let {{new-car 

(letcc oh 


{rm a {car l) oh)))) 

(if {atom? new-car) 

{cons {car l) 

{rm a {cdr l) oh)) 

{cons new-car {cdr /)))))))) 



Do we need to make up a good example for 
remberl * 


We should, but aren’t we late for dinner? 


Do we need to protect rm We should, but aren’t we late for dinner? 

Are you that hungry again? Try some baba ghanouj followed by 

moussaka. If that sounds like too much 
eggplant, escape with a gyro. 
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Try this hot fudge sundae with coffee ice It looks sweet, and it works, too. 

cream for dessert: 

(define remberl* 

(lambda (a l) 

(try 1 oh (rm a l oh) /))) 


1 Like (and . ..), (try ...) is an abbreviation: 
(try x a 0) 

(letcc success 
(letcc x 

(success a)) 

0 ) 

The name success must not occur in a or 0. 


And don’t forget the whipped cream and the What do you mean? 
cherry on top. 


We can even simplify rm with (try ...) 


(define rm 
(lambda (a l oh) 

(cond 

{{null? 1) {oh (quote no))) 
{{atom? {car l)) 

(if {eq? {car l) a) 

{cdr l) 

{cons {car l) 

{rm a {cdr l) oh)))) 

(else 
(try oh2 

{cons {rm a {car l) oh2) 
{cdr l)) 

{cons {car l) 

{rm a {cdr l) oh))))))) 


Does this version of remberl* rely on no No. 

being an atom? 


Was it a fine dessert? 


Yes, but now we are oh so very full. 
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What is the value of 


(define x 

(cons (quote Chicago) 
(cons (quote pizza) 
(quote ())))) 


The definitions we have seen so far don’t 
have values. But from now on we will 
sometimes have to talk about the values of 
definitions, too. 


What does the name x refer to? 


(chicago pizza). 


What is the value of 


(set ! 1 x (quote gone)) 


It doesn’t have a value, but the effect is as if 
we had just written: 

( define x (quote gone)) 



L: setq, pronounced “set queue” 
S: Pronounced “set bang.” 


Did you notice that define is underlined? We have seen it before. It means that we 

never actually write this definition. We 
merely imagine it. But it does replace the 
two boxes on the left. 


What does the name x refer to? 


gone. 


What is the value of 


(set! x (quote skins)) 


Remember this doesn’t have a value. 


Is (set! ...) just like (define ...) 


Yes, mostly. 

A (set! ...) expression always looks like 
(define ...). The second item is always a 
name, the last one is always an expression. 


And what is x now? 


It refers to skins. 
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What is the value of ( gourmet y) 

where y is onion 

and 

gourmet is 

Which x do you want? 

(define gourmet 
(lambda (food) 

(cons food 

(cons x (quote ()))))) 




Now what does x refer to? 

It still refers to skins. 

So what is the value of ( cons x (quote ())) 

(skins). 

What is the value of 

(gourmet (quote onion)) 

(onion skins). 


(set! x (quote rings)) 


It is as if we had written: 

( define x (quote rings)) 

and as if we had never had any definition of x 
before. 


What is the value of (gourmet y) 

Which value of x do you want? 

where y is onion 


And now, what is x 

It refers to rings. 

What is the value of 

It is (onion rings), since x is now rings. 

(gourmet (quote onion)) 



92 


Chapter 15 







Have we seen something like this before? 


So what do you think is the value of 
(gourmand (quote potato)) 


And that is? 


That is correct! 


The Difference Between Men and Boys . 


What about it? 


Yes, the (lambda ...) contains two 
expressions in the value part. 

The first one is 
(set! x food). 

The one after that is 

✓ 

(cons food 
(cons x 

(quote ()))). 

Yes, we just saw a (let ...) with two 
expressions in the value part at the end of 
the previous chapter. 

It is probably the value of the second 
expression, just as in a (let ...) with two 
expressions. 

A good guess is (potato potato). 


It also means that the value of x is potato. 


Yes! And how did that happen? 

The first expression 
(set! x food) 

means that the definition of x changed. It is 
as if we had written: 



(define x (auote potato)) 


and as if we had never had any definition of x 
before. 

Why? 


Because food is potato. 

What is the value of x now? 


It is still potato. 

What is the value of ( gourmand w) 
where w is rice 


Now it is easy: (rice rice). 

And what is the value of x now? 


rice, of course. 

Does gourmand remember what food it saw 
last? 

Yes, x always refers to the last food that 
gourmand ate. 

Can you write dinerR which is like diner but 
also remembers which food it ate last? 


No problem. We can use the same trick. 


(define dinerR 
(lambda (food) 

(set! x food) 

(cons (quote milkshake) 

(cons food 
(quote ()))))) 

(define diner 
(lambda (food) 

(cons (quote milkshake) 

(cons food 
(quote ()))))) 


What is the value of (dinerR (quote onion)) 


(milkshake onion). 


What does x refer to now? onion. 
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What is the value of 

(dinerR (quote pecanpie)) 

(milkshake pecanpie). 

And now what does x refer to? 

pecanpie. 

Which do you prefer? 

Milkshake and pecan pie. 

What is the value of 

(gourmand (quote onion)) 

We have done this before: 

(onion onion). 

But, what happened to x 

It now refers to onion. 

What food did dinerR eat last? 

Not onion. 

How did that happen? 

Both dinerR and gourmand use x to 
remember the food they saw last. 

Should we have chosen a different name 
when we wrote dinerR 

Yes, we should have chosen a new name. 

Like what? 

y • 

But what would have happened if gourmand 
had used y to remember the food it saw last? 

Well, wouldn’t we have the same problem 
again? 

Yes, but don’t worry: there is a way to avoid 
this conflict of names. 

There must be, because we should be able to 
get around such coincidences! 

Here is a new function: 

It looks like gourmand. 

(define omnivore 
(let ((rr (quote minestrone))) 

(lambda (food) 

(set! x food) 

(cons food 
(cons x 

(quote ())))))) 
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True, but not quite. What is the big 
difference? 


Didn’t you see the (let ...) that surrounds 
the (lambda ...)? Here it is: 

(let ((x (quote minestrone))) 

(lambda (food) 

•••))• 


What is the little difference? 


The names. 


What is the value of 


(define omnivore 

(let ((x (quote minestrone))) 
(lambda (food) 

(set! x food) 

(cons food 
(cons x 

(quote ())))))) 


We learned that (let ...) names the value of 
expressions. 


What is the value of (quote minestrone) 


minestrone. 


And what is the value part of the (let ...) 


The value part of this (let ...) is a function 


What value does omnivore stand for? 


We do not know. 


That is correct. We need to determine its 
value. 


We have never done this before. 


So the definition of omnivore is almost like 
writing two definitions: 


(define x (quote minestrone)) 


(define omnivore 
(lambda (food) 

(set! x food) 

(cons food 
(cons x 

(quote ()))))) 


But it really is this: 


define x x (quote minestrone)) 


( define omnivore 
(lambda (food) 

(set! x x food) 
(cons food 
(cons x x 

(quote ()))))) 
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Did you notice that define is underlined? 


Did you see the underlined name? 


What is x 


Has x x ever been used before with 
( define ...) 


What does x, refer to? 


So, what is x^s value? 


What is the value of omnivore 


Yes, that’s old hat by now. 


Yes, and that is something new 


Xi is an imaginary name. 


No, it has not. And it never, ever will be 


used with ( define ...) again. 


It stands for minestrone. 


No answer; it is imaginary 


Now it is a function. 


What is the value of (omnivore z) It looks like it is (bouillabaisse bouillabaisse), 

where z is bouillabaisse 

i 

What is x^s value? No answer. 


Right? 


What does x x refer to? 


Always no answer for imaginary names. We 
just keep in mind what they represent. 

It now stands for bouillabaisse. 


And why? 


After determining the value of (omnivore z) 
where 2 is bouillabaisse, x x has changed. It is 
as if we had written: 



and as if we had never had a definition of x x 
before. 
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Determining the value of ( omnivore z) is just What is the difference? 
like finding the value of ( gourmand z) 


There is no answer for x x Unlike x, x x is an imaginary name. We must 

remember what value it represents, because 
we cannot find out! 


The Sixteenth Commandment 

Use (set! ... ) only with names defined in (let ... )s. 


Take a really close look at this: This looks like omnivore. 

(define gobbler 

(let ((rr (quote minestrone))) 

(lambda (food) 

(set! x food) 

(cons food 
(cons x 

(quote ())))))) 


Not quite. What is the little difference? The names. 


Is there a big difference? 



What is the value of 

(define gobbler 

(let ((rr (quote minestrone))) 
(lambda (food) 

(set! x food) 

(cons food 
(cons x 

(quote ())))))) 


( define x 2 (quote minestrone)) 


( define gobbler 
(lambda (food) 

(set! x 2 food) 
(cons food 
(cons x 2 
(quote ()))))) 
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What is x 2 

x 2 is another imaginary name. 

Has x 2 ever been used before with 

No, and it never, ever will be used with 

(define ...) 

(define ...) again. 

What does x 2 refer to? 

It stands for minestrone. 

What does x x refer to? 

It still stands for bouillabaisse. 

So, what is x 2 s value? 

No answer, because x 2 is imaginary. 

What is the value of gobbler 

It is a function. 

What is the value of ( gobbler z) 

It is (gumbo gumbo). 

where z is gumbo 


Now, what is x 2 s value? 

No answer. Ever! 

What does x 2 refer to? 

It now stands for gumbo. 

And why? 

After determining the value of the definition, 


the definition of x 2 has changed. It is as if 


we had written: 


(define Xn (auote gumbo)) 


and as if we had never had a value for x 2 


before. 

Determining the value of ( gobbler z) is just 

What is the difference? 

like finding the value of ( omnivore z) 
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There is no answer for x 


2 


Yes, x 2 is an imaginary name just as x x is an 
imaginary name. 


Do omnivore and gobbler observe The 
Sixteenth Commandment? 


They do. The name in (set! 
introduced by a (let ...). 


..) is 


What is the value of nibbler 


(define nibbler 
(lambda (food) 

(let ((rr (quote donut))) 
(set! x food) 

(cons food 
(cons x 

(quote ())))))) 


Unimaginable. Keep reading. 


What is the value of 

(nibbler (quote cheerio)) 


(cheerio cheerio). 


Does nibbler still know about cheerio 


No! 


How do we determine the value of 
(nibbler (quote cheerio)) 


First, we determine the value of 
(quote donut), which is easy. And then we 
give it a name: x. 


And second? 


Second, we change what x stands for to 
cheerio. 


And third? 


Third, we determine the value of 

(cons food 
(cons x 

(quote ()))) 
where x is cheerio 
and 

food is cheerio. 
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So what was the use of (let ...) 


None. If (let ...) and (set! ...) are used 
without a (lambda ... between them, they 
don’t help us to remember things. 


So why is it unimaginable? 


Because there is no (lambda between the 
(let ((rr ...)) ...) and the (set! x ...) in 

(lambda (food) 


(let ((rr (quote donut))) 
(set! x food) 

• ••))• 


The Seventeenth Commandment 


(preliminary version) 

Use (set! x ...) for (let ((x ...)) 
there is at least one (lambda ... 


..) only if 
between it 


and the (let ((x 


.. )) ... ). 


Isn’t (let ...) like (letrec ...) 


Yes, we said it was similar. 


Do you think The Sixteenth and Seventeenth 
Commandments also apply to names in the 
name part of (letrec ...) 


Yes, they do, and we will see examples of 
this, but not just yet. 


Why did we forget The Sixteenth 
Commandment earlier? 


Occasionally we need to ignore 
commandments, because it helps to 
explain things. 
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Here is the function glutton 

As you know, we use our words: 

“When given a food item, say onion, it 
builds a list that demands a double 
portion of this item, 

(define food (quote none)) 


(define glutton 
(lambda (x) 

(set! food x) 

(cons (quote more) 

(cons x 

(cons (quote more) 

(cons x 

(quote ()))))))) 

(more onion more onion) 
in our example, and also remembers the 
food item in food. 11 

Explain in your words what it does. 


Why does the definition of glutton disobey 
The Seventeenth Commandment? 

Recall that we occasionally ignore 
commandments, because it helps to 
explain things. 

What is the value of 
{glutton (quote garlic)) 

(more garlic more garlic). 

What does food refer to 

garlic. 

Do you remember what x refers to? 

onion. In case you forgot, x refers to what 
gourmand or dinerR ate last. 

Who saw the onion 

gourmand. 

Can you write the function chez-nous, which 
swaps what x and food refer to? 

If so, have a snack and join us later for the 
main meal. 

How can chez-nous change food to what x 
refers to? 

(set! food x). 
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How can the function change x to what food 
refers to? 

(set! x food). 

How many arguments does chez-nous take? 

None! 

Is this the right way of putting it all together It is worth a try, but we should check 

in one definition? whether it works. 

(define chez-nous 
(lambda () 

(set! food x) 

(set! x food))) 




What does food refer to? 

garlic. 

What does x refer to? 

onion. 

What is the value of ( chez-nous) 

Now, what does food refer to 

onion. 

Now, what does x refer to? 

onion. 

Did you look closely at the last answer? 

We hope so. 

Why is the value of x still onion 

After changing food to the value that x 
stands for, chez-nous changes x to what food 
refers to. 

And what does food refer to? 

onion. 
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The Eighteenth Commandment 

Use (set! x ...) only when the value that x 
refers to is no longer needed. 


How could we save the value in food so that With (let ...). 
it is still around when we need to change x 


Here is our attempt: 

“(let ...) names values. If chez-nous first 
names the value in food , we have two ways 
to refer to its value. And we can use the 
name in (let ...) to put this value into x. n 

Yes, exactly like that. 

(define chez-nous 
(lambda () 

(let ((a food)) 

(set! food x) 

(set! x a)))) 


Explain! 


Like this? 


What is the value of 
(glutton (quote garlic)) 


(more garlic more garlic). 


What does food refer to? 



What is the value of 

(gourmand (quote potato)) 


(potato potato). 


What does x refer to? 


potato. 


What is the value of ( chez-nous ) 
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And food refers to ... 


potato. 


But this time, x refers to ... 


See you later! 


Don’t you want anything to eat? 


If you want something full of garlic, try 
skordalia. 


garlic. 


Bye for now. 


No, that was enough garlic for one day 


Perhaps someday. 


Skordalia 


To make 3 cups: 

6 cloves to 1 head garlic, peeled 

2 cups mashed potatoes (approximately 4 medium potatoes) 

4 or more large slices of French- or Italian-type bread, 
crusts removed, soaked in water, and squeezed dry 

1/2 to 3/4 cup olive oil 

1/3 to 1/2 cup white vinegar 

Pinch of salt 

Pound the garlic cloves in a large wooden mortar with a pestle until 
thoroughly mashed. Continue pounding while adding the potatoes and 
bread very gradually, beating until the mixture resembles a paste. Slowly 
add the oil, alternating with the vinegar, beating thoroughly after each 
addition until well absorbed. Add salt, taste for seasoning, and beat until 
the sauce is very thick and smooth, adding more vinegar or soaked squeezed 
bread, if necessary. Then scoop into a serving bowl. Cover and refrigerate 
until ready to use. Use as a dip for beets, zucchini, and eggplant. 

The Food of Greece 

Vilma Liacours Chentiles 
Avenel Books, New York, 1975 
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Here are sweet-tooth and last More food: did you exercise after your snack? 


(define sweet-tooth 
(lambda (food) 

(cons food 
(cons (quote cake) 
(quote ()))))) 


(define last (quote angelfood)) 


What is the value of (sweet-tooth x) 
where x is chocolate 

(chocolate cake). 

What does last refer to? 

angelfood. 

What is the value of (sweet-tooth x) 
where x is fruit 

(fruit cake). 

Now, what does last refer to? 

Still angelfood. 

Can you write the function sweet-toothL 
which returns the same value as sweet-tooth 

and which, in addition, changes last so that 
it refers to the last food that sweet-toothL 
has seen? 

We have used this trick twice before. Here 
we go: 

(define sweet-toothL 
(lambda (food) 

(set! last food) 

(cons food 

(cons (quote cake) 

(quote ()))))) 



What is the value of 

(sweet-toothL (quote chocolate)) 

(chocolate cake). 

And the value of last is ... 

chocolate. 


.Ready, Set, Bang! 
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What is the value of 

( sweet-toothL (quote fruit)) 

(fruit cake). 

And last 

It refers to fruit. 

Isn’t this easy? 

Easy as pie! 

Find the value of ( sweet-toothL x) 
where x is cheese 

It is (cheese cake). 

What is the value of 

( sweet-toothL (quote carrot)) 

(carrot cake). 

Do you still remember the ingredients that 
went into sweet-toothL 

There was chocolate, fruit, cheese, and carrot. 

How did you put this list together? 

By quickly glancing over the last few 
questions and answers. 

But couldn’t you just as easily have 
memorized the list as you were reading the 
questions? 

Of course, but why? 

Can you write a function sweet-toothR that 
returns the same results as sweet-toothL but 
also memorizes the list of ingredients as they 
are passed to the function? 

Yes, you can. Here’s a hint. 

(define ingredients (quote ())) 


What is that hint about? 

This is the name that refers to the list of 
ingredients that sweet-toothR has seen. 

One more hint: The Second Commandment. 

Is this the commandment about using cons 
to build lists? 
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Yes, that’s the one. 


Here’s the function: 


(define sweet-toothR 
(lambda (food) 

(set! ingredients 
(cons food ingredients)) 
(cons food 
(cons (quote cake) 
(quote ()))))) 


What is the value of (sweet-toothR x) 
where 

x is chocolate 


(chocolate cake) 


What are the ingredients 


(chocolate) 


What is the value of 

(sweet-toothR (quote fruit)) 


(fruit cake) 


Now, what are the ingredients 


(fruit chocolate) 


Find the value of (sweet-toothR x) 

where 
x is cheese 


It is (cheese cake). 


What does the name ingredients refer to? 


(cheese fruit chocolate) 


What is the value of (carrot cake). 

(sweet-toothR (quote carrot)) 


And now, what are the ingredients (carrot cheese fruit chocolate). 


Now that you have had the dessert ... Is it time for the real meal? 


Ready , Set, Bang! 
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Did we forget about The Sixteenth 
Commandment? 

Sometimes it is easier to explain things when 
we ignore the commandments. We will use 
names introduced by (let ...) next time we 
use (set! ...). 

What is the value of (deep 3) 

No, it is not a pizza. It is 
(((pizza))). 

What is the value of (deep 7) 

Don’t get the pizza yet. But, yes, it is 
(((((((pizza))))))). 

What is the value of (deep 0) 

Let’s guess: 
pizza. 

Good guess. 

This is easy: no toppings, plain pizza. 

Is this deep 

It would give the right answers. 

(define deep 
(lambda (m) 

(cond 

((zero? m) (quote pizza)) 

(else (cons (deep (subl m)) 

(quote ())))))) 




Do you remember the value of (deep 3) 

It is (((pizza))), isn’t it? 

How did you determine the answer? 

Well, deep checks whether its argument is 0, 
which it is not, and then it recurs. 

Did you have to go through all of this to 
determine the answer? 

No, the answer is easy to remember. 


110 


Chapter 16 




Is it easy to write the function deepR which 
returns the same answers as deep but 
remembers all the numbers it has seen? 


This is trivial by now: 
(define Ns (quote ())) 


(define deepR 
(lambda (n) 

(set! Ns (cons n Ns)) 
(deep n))) 


Great! Can we also extend deepR to 
remember all the results? 


This should be easy, too: 
(define Rs (quote ())) 


(define Ns (quote ())) 


(define deepR 
(lambda (n) 

(set! Rs (cons (deep n) Rs)) 
(set! Ns (cons n Ns)) 

(deep n))) 


Wait! Did we forget a commandment? The Fifteenth: we say (deep n) twice. 


Then rewrite it. 


(define deepR 
(lambda (n) 

(let ((result (deep n))) 

(set! Rs (cons result Rs)) 
(set! Ns (cons n Ns)) 
result))) 


Does it work? 

Let’s see. 

What is the value of (deepR 3) 

(((pizza))). 


Ready ; Set, Bang! 


Ill 




What does Ns refer to? 

(3). 

And Rs 


((((pizza)))). 

Let’s do this again. What is the value of (((((pizza))))). 

(deepR 5) 

Ns refers to ... 

(5 3). 

And Rs to ... 

((((((pizza))))) 

(((pizza)))). 


i 


The Nineteenth Commandment 



Use (set! ...) to remember valuable things between 
two distinct uses of a function. 





Do it again with 3 

But we just did. It is (((pizza))). 

Now, what does Ns refer to? 

(3 5 3). 

How about Rs 

((((pizza))) 

(((((pizza))))) 

(((pizza)))). 

We didn’t have to do this, did we? 

No, we already knew the result. And we 
could have just looked inside Ns and Rs , if 
we really couldn’t remember it. 
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How should we have done this? 

Ns contains 3. So we could have found the 
value (((pizza))) without using deep. 

Where do we find (((pizza))) 

In Rs. 

What is the value of (find 3 Ns Rs) 

(((pizza)))- 

What is the value of (find 5 Ns Rs) 

(((((pizza))))). 

What is the value of (find 7 Ns Rs) 

No answer, since 7 does not occur in Ns. 


Write the function find 
In addition to Ns and Rs it takes a number 
n which is guaranteed to occur in Ns and 
returns the value in the corresponding 
position of Rs 


We are happy to see that you are truly 
comfortable with (letrec ...) 


(define find 
(lambda (n Ns Rs) 

(letrec 

((d (lambda (ns rs) 

(cond 

((= (car ns) n) (car rs)) 
(else 

(A (cdr ns) (cdr rs))))))) 
(A Ns Rs)))) 


No problem. 


Use find to write the function deepM which 
is like deepR but avoids unnecessary consing 
onto Ns 


No problem, just use (if ...): 

(define deepM 
(lambda (n) 

(if ( member? n Ns) 

(find n Ns Rs) 
(deepR n)))) 


What is Ns 



Ready, Set, Bang! 
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And Rs 

((((pizza))) 

(((((pizza))))) 

(((pizza)))). 

Now that we have deepM should we remove 
the duplicates from Ns and Rs 

How could we possibly do this? 

You forgot: we have (set! ...) 

(set! Ns (cdr Ns)) 




(set! Rs (cdr Rs)) 

What is Ns now? 

(5 3). 

And how about Rs 

((((((pizza))))) 

(((pizza)))). 

Is deepM simple enough? 

Sure looks simple. 

Do we need to waste the name deepR 

No, the function deepR is not recursive. 

And deepR is used in only one place. 

That’s correct. 


So we can write deepM without using deepR 


(define deepM 
(lambda (n) 

(if ( member? n Ns) 

(find n Ns Rs) 

(let ((result (deep n))) 

(set! Rs (cons result Rs)) 
(set! Ns (cons n Ns)) 
result)))) 
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This is another form of simplifying. 

Which is why we did it after the function 
was correct. 

If we now ask one more time what the value 

of ( deepM 3) is 

... then we use find to determine the result. 

Ready? What is the value of ( deepM 6) 

((((((Pizza)))))). 

Good, but how did we get there? 

We used deepM and deep, which consed onto 
Ns and Rs. 

But, isn’t (deep 6) the same as 
(cons (deep 5) (quote ())) 

What kind of question is this? 

When we find (deep 6) we also determine the 
value of (deep 5) 

Which we can already find in Rs. 

That’s right. 

Should we try to help deep by changing the 
recursion in deep from (deep (subl m)) to 
(deepM (subl m))? 

Do it. 

(define deep 
(lambda (m) 

(cond 

((zero? m) (quote pizza)) 

(else (cons (deepM (subl m)) 

(quote ())))))) 



What is the value of (deepM 9) 

(((((((((pizza))))))))). 

What is Ns now? 

(98 76 5 3). 


Ready, Set, Bang! 
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That’s true. The names in (set! Ns ...) and 
(set! Rs ...) are not introduced by (let ...) 



(define deepM 

(let ((Rs (quote ())) 

(Ns (quote ()))) 

(lambda (n) 

(if ( member? n Ns) 

(find n Ns Rs) 

(let ((result (deep n))) 

(set! Rs (cons result Rs)) 
(set! Ns (cons n Ns)) 
result))))) 


What is the value of this definition? 
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The function deep asks for (deepM 8). 

(deepM 8) requires the value of (deepM 7). 

Yes, because (deepM 6) already knows the 
answer. 

No, because deepM still disobeys The 
Sixteenth Commandment. 

It is easy to do that. 


Two imaginary names and deepM 


define Rs Y (quote ())) 


define TVs, (quote ())) 


( define deepM 
(lambda (n) 

(if (member? n Ns 1 ) 

(find n N8 j Rsi) 

(let ((result (deep n))) 
(set! Rs x (cons resu 


(set! Ns 1 (cons 
result )))) 


result Rs\)) 
n Ns - 1 )) 


((((((((((((((((Pizza)))))))))))))))). 
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Here is what Ns 1 refers to: 

Our favorite food! 

(16 

(((((((((((((((((Pizza)))))))))))))))) 

15 

(((((((((((((((Pizza))))))))))))))) 

14 

((((((((((((((Pizza)))))))))))))) 

13 

(((((((((((((pizza))))))))))))) 

12 

((((((((((((pizza)))))))))))) 

11 

(((((((((((pizza))))))))))) 

10 

((((((((((pizza)))))))))) 

9 

(((((((((pizza))))))))) 

8 

((((((((pizza)))))))) 

7 

(((((((pizza))))))) 

6 

((((((Pizza)))))) 

5 

(((((Pizza))))) 

4 

((((pizza)))) 

3 

(((pizza))) 

2 

((pizza)) 

1 

(pizza) 

0) 

pizza) 

What does Rs 1 refer to? 

Doesn’t this look like a slice of pizza? 

What is {find 3 (quote ()) (quote ())) 

This questions is meaningless. Neither Ns x 
nor Rs x is empty so find would never be 
used like that. 

But what would be the result? 

No answer. 


What would be a good answer? 


If n is not in Ns, then ( find n Ns Rs ) should 
be #f. We just have to add one line to find 
if we want to cover this case: 

(define find 
(lambda (n Ns Rs) 

(letrec 

((^4 (lambda (ns rs) 

(cond 

{{null? ns) #f) 

((= {car ns) n) {car rs)) 
(else 

{A {cdr ns) {cdr rs))))))) 

{A Ns Rs)))) 


Ready, Set, Bang! 
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Why is #f a good answer in that case? 


When find succeeds, it returns a list, and #f 
is an atom. 


Can we now replace member? with find since 
the new version also handles the case when 
its second argument is empty? 


Yes, that’s no problem now. If the answer is 
#f, Ns does not contain the number we are 
looking for. And if the answer is a list, then 
it does. 


Okay, then let’s do it. 

(define deepM 

(let ((Rs (quote ())) 

{Ns (quote ()))) 

(lambda (n) 

(if (atom? (find n Ns RS)) 

(let ((result (deep n))) 

(set! Rs (cons result Rs)) 
(set! Ns (cons n Ns)) 
result ) 

(find n Ns Rs))))) 


That’s one way of doing it. But if we follow 
The Fifteenth Commandment, the function 
looks even better. 

(define deepM 

(let ((Rs (quote ())) 

(Ns (quote ()))) 

(lambda (n) 

(let ((exists (find n Ns RS))) 

(if (atom? exists) 

(let ((result (deep n))) 

(set! Rs (cons result Rs)) 
(set! Ns (cons n Ns)) 
result) 
exists))))) 



Do you remember length Sure: 

(define length 
(lambda (/) 

(cond 

((null? 1) 0) 

(else (addl (length (cdr /))))))) 
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What is the value of 


It is as if we had written: 


(define length 
(lambda (2) 

0 )) 


(set! length 
(lambda (/) 

(cond 
((null? 1) 0) 

(else (addl (length (cdr /))))))) 


( define length 
(lambda (l) 

(cond 

((null? 1) 0) 

(else (addl (length (cdr /))))))) 

But doesn’t this disregard The Sixteenth 
Commandment? Aren’t we supposed to use 
names in (set! ...) that have been 
introduced by (let ...)? 


Here is one way to do it without using a 
name introduced by (define ...) in a 
(set! ...) 

(define length 
(let ((h (lambda (/) 0))) 

(set! h 
(lambda (l) 

(cond 
((null? 1) 0) 

(else (addl (h (cdr /))))))) 

h )) 


And this one disregards the The Seventeenth 
Commandment: there is no (lambda ... 
between the 

(let ((h ...)) ...) 
and the 

(set! h ...). 


The Seventeenth Commandment 

(final version ) 

Use (set! x ... ) for (let ((x ... )) ... ) only if there is at least 
one (lambda ... between it and the (let ... ), or if the new 
value for x is a function that refers to x. 


Ready, Set, Bang! 
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What is the value of 


(define length 

(let ((h (lambda (l) 0))) 

(set! h 
(lambda (/) 

(cond 

((null? 1) 0) 

(else (addl (h (cdr /))))))) 

h)) 


True. Evaluating the definition creates an 
imaginary definition for h by removing it 
from the (let ...) 


What is the value of 


( define 

(lambda (/) 

0 )) _ 

( define length 
(let () 

(set! hi 

(lambda (/) 

(cond 

{(null? 1) 0) 

(else (addl (hi (cdr /))))))) 

£,)) 


It is as if we had written: 


( define hi 
(lambda (/) 

0 )) 


( define lenqth 
(let () 

(set! hi 
(lambda (/) 

(cond 
((null? 1) 0) 

(else (addl (hi (cdr /))))))) 

h .)) 


Yes, and the (let () ...) is now only used to 
order two events: changing the value of h x 
and returning the value of hi • 


It is as if we had written: 


( define hi 
(lambda (2) 

(cond 
((null? 1) 0) 

(else (addl (hi (cdr /))))))) 


( define length 
(let () 

&i)) 
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What is the value of 


It is as if we had written: 



( define length 
(lambda (l) 

(cond 
((null? 1) 0) 

(else (addl (/^ (cdr /))))))) 


Does this mean length would perform as we 
expect it to? 


Okay, let’s start over. Here is the definition 
of length again: 

(define length 
(let ((h (lambda (/) 0))) 

(set! h 
(lambda (/) 

(cond 

((null? 1) 0) 

(else (addl (h (cdr /))))))) 


Can you eliminate the parts of the definition 
that are specific to length 


Yes, it would because it is basically the same 

function it used to be. It just refers to a 

# 

recursive copy of itself through the imaginary 
name h x . 


The right-hand side of (set! ...) needs to be 
eliminated: 

(define length 
(let ((h (lambda (/) 0))) 

(set! h ...) 

h)) 

The rest could be reused to construct any 
recursive function of one argument. 


Here is L That should be possible. 

(define L 
(lambda (length) 

(lambda (l) 

(cond 
((null? 1) 0) 

(else (addl (length (cdr /)))))))) 

Can we use it to express the right-hand side 
of (set! ...) in length 


Ready, Set, Bang! 
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Is this a good solution? 

Yes, except that (lambda (arg) (h arg)) 
seems to be a long way of saying h. 

(define length 

(let (( h (lambda (/) 0))) 

(set! h 

( L (lambda ( arg) (h arg)))) 

h)) 



Why can we write 

(lambda (arg) (h arg)) 

Because h is a function of one argument. 

Does h always refer to 
(lambda (/) 0) 

No, it is changed to the value of 
(L (lambda (arg) (h arg))). 

What is the value of 
(lambda (arg) (h arg)) 

We don’t know because it depends on h. 

How many times does the value of h change? 

Once. 

What is the value of 

(L (lambda (arg) (h arg))) 

It is a function: 

(lambda (2) 

(cond 

((null? 1) 0) 

(else (addl 

((lambda (arg) (h arg)) 

(cdr /)))))). 

What is the value of 

(lambda (l) 

(cond 

((null? 1) 0) 

(else (addl 

((lambda (arg) (h arg)) 

(cdr /)))))) 

We don’t know because h changes. Indeed, it 
changes and becomes this function. 

And then? 

Then the value of h is the recursive function 
length. 
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Rewrite the definition of length so that it 
becomes a function of L. Call the new 
function Y 



Write length using Y\ and L 


Ready, Set, Bang! 



You have just worked through the derivation 
of a function called “the applicative-order, 
imperative Y combinator.” The interesting 
aspect of Y\ is that it produces recursive 
definitions without requiring that the 
functions be named by (define ...) 

Define D so that depth* is 


is 


(define depth 


* 


(Yi D)) 


(define D 
(lambda (depth*) 
(lambda (s) 

(cond 

((null? s) 1) 
((atom? (car 5)) 


(depth 
(else 
(max 


(cdr s))) 


(addl (depth 


* 


(car 5))) 


(depth 


* 


(cdr S )))))))) 


How do we go from a recursive function 
definition to a function / such that (Y\ f) 
builds the corresponding recursive function 
without (define ...) 


Our words: 

“ /is like the recursive function except that 
the name of the recursive function is 
replaced by the name recfun and the whole 
expression is wrapped in 
(lambda ( recfun ) ...).” 


Is it true that the value of ( Y f) is the same 
recursive function as the value of (Y\ f) 


Yes, the function Y\ produces the same 
recursive function as Y for all / that have 
this shape. 


What happens when we use Y and Y\ with a Let’s see. 
function that does not have this shape? 


Give the following function a name: How about biz , an abbreviation for bizarre? 
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That is as good a name as any other. What 
is the value of this definition? 


It is as if we had written: 


(define Xi 0) 


(define biz 


(lambda 

(/) 

(set! x x 

(addl x x )) 

(lambda (a) 

(*(= 

a x x ) 

0 


(/ 

a))))) 


What is the value of It’s 0. 

((y biz) 5) 


What is the value of 
m biz) 5) 


It’s not 0. It doesn’t even have an answer! 


Does your hat still fit? Of course it does. After you have worked 

through the definition of the Y combinator, 
nothing will ever affect your hat size again, 
not even an attempt to understand the 
difference between Y and Y\. 


Then again, eating some more scrambled Something lighter, like Belgian waffles, would 

eggs and pancakes may do things to you! do it, too. 


For that elephant ate all night, 

And that elephant ate all day; 

Do what he could to furnish him food, 
The cry was still more hay. 

Wang: The Man with an Elephant 

on His Hands [1891] 

—John Cheever Goodwin 


Ready, Set, Bang! 
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We didn’t expect you so soon 


It is good to be back. What’s next? 


Let’s look at deep again. 


Here is a definition using (if ...) 


(define deep 
(lambda (m) 

(if {zero? m) 

(quote pizza) 


{cons {deep {subl m)) 
(quote ()))))) 


And let’s look at deepM with the new 
version of deep included: 


Easy: D should refer to deepM instead of 
itself. 


(define deepM 
(let {{Rs (quote ())) 

(Ns (quote ()))) 

(letrec 

{{D (lambda (m) 

(if {zero? m) 

(quote pizza) 

{cons {D {subl m)) 
(quote ())))))) 
(lambda (n) 

(let {{exists {find n Ns RS))) 

(if {atom? exists) 

(let {{result {D n))) 

(set! Rs {cons result Rs)) 
(set! Ns {cons n Ns)) 
result) 
exists)))))) 


(define deepM 
(let {{Rs (quote ())) 

(Ns (quote ()))) 

(letrec 

{{D (lambda ( m) 

(if {zero? m) 

(quote pizza) 

{cons {deepM {subl m)) 

(quote ())))))) 
(lambda (n) 

(let {{exists {find n Ns RS))) 

(if {atom? exists) 

(let {{result {D n))) 

(set! Rs {cons result Rs)) 
(set! Ns {cons n Ns)) 
result) 
exists)))))) 


Can you help D with its work? 


Good. Is it true that there is no longer any Yes, 

need for (letrec ...) in deepM since D is no longer mentioned in the 

definition of D. 


We Change , Therefore We Are! 
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This means we can use (let ...) 


(define deepM 

(let ((Rs (quote ())) 

(Ns (quote ()))) 

(let 

((D (lambda (m) 

(if {zero? m) 

(quote pizza) 

(cons (deepM {subl m)) 

(quote ())))))) 
(lambda (n) 

(let {{exists {find n Ns RS))) 

(if {atom? exists) 

(let {{result {D n))) 

(set! Rs {cons result Rs)) 
(set! Ns {cons n Ns)) 
result) 
exists)))))) 


Better: there needs to be only one (let ...) 


Why? 


Because Ns and Rs do not appear in the 
definition of D 


This is true. 


(define deepM 

(let {{Rs (quote ())) 

{Ns (quote ())) 

{D (lambda (m) 

(if {zero? m) 

(quote pizza) 


(lambda (n) 


{cons {deepM {subl m)) 
(quote ())))))) 


(let {{exists {find n Ns RS))) 

(if {atom? exists) 

(let {{result {D n))) 

(set! Rs {cons result Rs)) 
(set! Ns {cons n Ns)) 
result ) 
e:ns£s))))) 
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Can we replace the one use of D by the 
expression it names? 


(define deepM 
(let ((Rs (quote ())) 

{Ns (quote ()))) 

(lambda (n) 

(let ((exists (find n Ns RS))) 

(if (atom? exists) 

(let ((result ...)) 

(set! Rs (cons result Rs)) 
(set! Ns (cons n Ns)) 
result) 
exists))))) 


Since the definition does not contain 
(set! D ...) and D is used in only one place, 
we can replace D by its value: 


((lambda (m) 

(if (zero? m) 


n) 


(quote pizza) 

(cons (deepM (subl m)) 
(quote ())))) 


What should we place at the dots? 


Therefore we can unname an expression that 
we named with the (let ...) 


Yes, that is why the two definitions are 
equivalent. 


Don’t you think applying a (lambda ...) 
immediately to an argument is equivalent to 
(let ...) 


Yes, determining the value of either one 
means determining the value of the value 
parts after associating a name with a value 


Complete the following definition of deepM 


(define deepM 
(let ((Rs (quote ())) 

(Ns (quote ()))) 

(lambda (n) 

(let ((exists (find n Ns RS))) 

(if (atom? exists) 

(let ((result ...)) 

(set! Rs (cons result Rs)) 
(set! Ns (cons n Ns)) 
result) 
exists))))) 


(let ((m n)) 

(if (zero? m) 


(quote pizza) 

(cons (deepM (subl m)) 
(quote ())))) 


Is it true that all we got was another 
(let ...) 


And it introduced a name to name another 


name. 



We Change, Therefore We Are! 
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Is there a (set! m ...) in the value part of 
(let ((m n)) ...) 

No. Are you asking whether we should 
unname again? 

We could, couldn’t we? 

Yes, because now a name is replaced by a 
name. 

Do it again! 



• • • 

(if (zero? n) 

(quote pizza) 

(cons (deepM (subl n)) 

(quote ()))) 

• • • 

(define deepM 
(let (( Rs (quote ())) 

{Ns (quote ()))) 

(lambda (n) 

(let (( exists ( find n Ns RS))) 

(if (atom? exists) 

(let ((result ...)) 

(set! Rs (cons result Rs)) 
(set! Ns (cons n Ns)) 
result) 
exists ))))) 



Wouldn’t you like to know how much help 
deepM gives? 

What does that mean? 

Once upon a time, we wrote deepM to 
remember what values deep had for given 
numbers. 

Oh, yes. 

How many conses does deep use to build 
pizza 

None. 

How many conses does deep use to build 
(((((pizza))))) 

Five, one for each topping. 

How many conses does deep use to build 
(((pizza))) 

Three. 
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How many conse s does deep use to build 
pizza with a thousand toppings? 


1000 . 


How many conse s does deep use to build all 
possible pizzas with at most a thousand 
toppings? 


You mean 500,500? 


Yes, there is an easy way to determine this 
number, but we will show you the hard way. 
It is far more exciting. 

Guess what it is? 


That’s a big number: 

the conse s of (deep 1000), and 
the conse s of (deep 999), and 
..., and 

the conse s of (deep 0). 

Yes, thank you, Carl F. Gauss 

(1777-1855). 

Okay. 


Can we write a function that determines it 
for us? 


Yes, we can write the function consC which 
returns the same value as cons and counts 
how many times it sees arguments. 


This is no different from writing deepR 
except that we use addl to build a number 
rather than cons to build a list. 





We Change, Therefore We Are! 
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Could we use this function to determine 

500,500? 


Sure, no problem. 



How? We just need to use consC instead of cons in 

the definition of deep: 

(define deep 
(lambda (m) 

(if {zero? m) 

(quote pizza) 

(consC {deep {subl m)) 

(quote ()))))) 


Wasn’t this exciting? 

Well, not really. 

So let’s see whether this new deep counts 
conse s 

How about determining the value of 
{deep 5)? 

That is easy; we shouldn’t bother. What is 
the value of N_ 1 

We don’t know, it is imaginary. 

But that’s how we count conse s 

How could we possibly see something that is 
imaginary? 

Here is one way. 

i 

Is this as if we had written: 

(define counter) 


(define iV 2 0) 

i 


(define consC 
(let ((N 0)) 

(set! counter 
(lambda () 


(define counter 
(lambda () 

N 2 )) 


N)) 

(lambda {x y) 

(set! N {addl N)) 

{cons x y)))) 


(define consC 
(lambda {x y) 

(set! N _2 {addl N_ 2 )) 

{cons x y))) 

i 
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Yes, what does counter refer to? 


A function, perhaps? 


Have we ever seen an incomplete definition No, it looks strange, 
before? 



It just means that we do not care what the ... because we immediately change it? 
first value of counter is, ... 

Correct. But how many arguments does None? 

counter take? 

None! So how do we use it? 

What is the value of ( counter) It is whatever N_ 2 refers to. 

And what does JV 2 refer to? At this time, 0. 

What is the value of {deep 5) (((((pizza))))). 

What is the value of {counter) 5? 

Yes, 5 How did that happen? 

“Each time consC is used, one is added to 
N_ 2 • And the answer to {counter) always 
refers to whatever N_ 2 refers to.” 

What is the value of {deep 7) (((((((pizza))))))). 

What is the value of {counter) Obvious: 12. 


We Change , Therefore We Are! 
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Is it clear now how we determine 500,500? Not quite; we need to use deep on a 

thousand and one numbers. 


But that is easy. Modify the function 
supercounter so that it returns the answer of 
(counter) when it has applied its argument 
to all the numbers between 0 and 1000 

(define supercounter 
(lambda (/) 

(letrec 

((S (lambda (n) 

(if {zero? n) 

if n) 

(let () 

(/ n) 

(S (subl n))))))) 

(S 1000)))) 


As with (let ...) and (lambda ...), we can 
also have more than one expression in the 
value part of a (letrec ...): 


(define supercounter 
(lambda (/) 

(letrec 


(( S (lambda (n) 

(if {zero? n) 

if n) 

(let () 

(/ ») 

(S (subl n))))))) 



(. S 1000) 

( counter )))) 


What is the value of {supercounter f ) 
where / is deep 

500512. 

Is this what we expected? 

No! We wanted 500500. 

Where did the extra 12 come from? 

Are these the leftovers from the previous 
experiments? 

That’s correct. 

We should not have leftovers. 

Let’s get rid of them. 

How? 

Good question! Write a function set-counter 

What does it do? 
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The function set-counter and counter are 
opposites. Instead of getting the value of the 
imaginary name, it sets it. 



And what happens now? 


We get three functions and an imaginary 
name: 




Now, what is the value of ( set-counter 0) 


We Change , Therefore We Are! 
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But? 


It changed No to 0. 


What is the value of ( supercounter f) 500500. 

where / is deep 

Is this what we expected? Yes! 


It is time to see how many conse s are used 
for ( deepM 5) 

Of course! What are you waiting for? 


How many conse s does deepM use to build 
(((((pizza))))) 


Don’t we need to modify its definition so 
that it uses consCl 


(define deepM 

(let ((Rs (quote ())) 

(Ns (quote ()))) 

(lambda (n) 

(let ((exists (find n Ns RS))) 

(if (atom? exists) 

(let ((result 

(if (zero? n) 

(quote pizza) 
(consC 

(deepM (subl n)) 
(quote ()))))) 
(set! Rs (cons result Rs)) 
(set! Ns (cons n Ns)) 
result) 
exists))))) 



What is the value of (counter) 


500505. 



Yes, but it means we forgot to initialize with 
set-counter. 
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What is the value of ( set-counter 0) 

How many conse s does deepM use to build 
(((((pizza))))) 

Five. 

What is the value of ( counter) 

5. 

What is the value of (deep 7) 

(((((((pizza))))))). 

What is the value of (counter) 

Obvious: 7. 

Didn’t we need to set-counter to 0 

No, we wanted to count the number of 
conse s that were needed to build 
(deepM 5) 
and 

(deepM 7). 

Why isn’t this 12 

Because that was the point of deepM. 

What is (supercounter f) where 
/ is deepM 

Don’t we need to initialize? 

No. What is (supercounter f) where 
/ is deepM 

1000. 

How many more conse s does deep use to 
return the same value as deepM 

499,500. 

“A LISP programmer knows the value of 
everything but the cost of nothing.” 

Thank you, Alan J. Perlis 

(1922-1990). 


We Change, Therefore We Are! 
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But we know the value of food! 


(((((((((((((((((more pizza)))))))))))))))) 
(((((((((((((((more pizza))))))))))))))) 

((((((((((((((more pizza)))))))))))))) 
(((((((((((((more pizza))))))))))))) 
((((((((((((more pizza)))))))))))) 
(((((((((((more pizza))))))))))) 
((((((((((more pizza)))))))))) 
(((((((((more pizza))))))))) 
((((((((more pizza)))))))) 
(((((((more pizza))))))) 
((((((more pizza)))))) 
(((((more pizza))))) 

((((more pizza)))) 

(((more pizza))) 

((more pizza)) 

(more pizza) 
more pizza) 
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Here is remberl* again: 

This is a safe version of the last definition we 


l saw in chapter 14: 

(define remberl* 


-1 

(lambda (a /) 


(define remberl *C 

(letrec 


(lambda (a l) 

((i2 (lambda (l oh) 


(letrec 

(cond 


((R (lambda (l oh) 

((null? 1) 


(cond 

(oh (quote no))) 


((null? 1) 

((atom? (car l)) 


(oh (quote no))) 

(if (eq? (car l) a) 


((atom? (car l)) 

(cdr l) 


(if (eq? (car l) a) 

(cons (car l) 


(cdr l) 

(R (cdr l) oh)))) 


(consC (car l) 

(else 


(R (cdr l) oh)))) 

(let ((new-car 


(else 

(letcc oh 


(let ((new-car 

(R (car l) 


(letcc oh 

oh)))) 


(R (car l) 

(if (atom? new-car) 


oh)))) 

(cons (car l) 


(if (atom? new-car) 

(R (cdr l) oh)) 


(consC (car l) 

(cons new-car 


(R (cdr l) oh)) 

(cdr l))))))))) 


(consC new-car 

(let ((new-l (letcc oh (R l oh)))) 


(cdr l))))))))) 

(if (atom? new-l) 


(let ((new-l (letcc oh (R l oh)))) 

l 


(if (atom? new-l) 

new-l))))) 


l 

1___ 


new-l))))) 

Write it again using our counting version of 1 

---1 

cons 



What is the value of (set-counter 0) 


What is the value of 

((food) more (food)), 

(remberl *C a l) 

because this list does not contain noodles. 

where 


a is noodles 


and 


l is ((food) more (food)) 
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And what is the value of ( counter ) 


0 , 


because we never used consC. We always 
used the compass needle and the North 
Pole to get rid of pending consCes. 


Do you also remember the first good version 
of remberl* 


(define remberl* 
(lambda (a l) 
(letrec 

((R (lambda (/) 

(cond 


(r m 


{{null? 1) (quote ())) 
{{atom? {car l)) 

(if {eq? {car l) a) 

{cdr l) 

{cons {car l) 

(R (cdr l))))) 

(else 

(let {{av {R {car /)))) 
(if {eqlist? {car l) av) 

{cons {car l) 

{R {cdr l))) 
{cons av 

(cdr 0)))))))) 


It is the version that failed by repeatedly 
checking whether anything had changed for 
the car of a list that was a list: 


(define remberl *C2 
(lambda {a l) 
(letrec 

{{R (lambda (/) 

(cond 


Rewrite it, too, using consC 


(r m 


{{null? 1) (quote ())) 
{{atom? {car l)) 

(if {eq? {car l) a) 

{cdr l) 

{consC {car l) 

(R (cdr /))))) 

(else 

(let {{av {R {car /)))) 

(if {eqlist? {car l) av) 

{consC {car l) 

{R {cdr l))) 
{consC av 
(cdr /))))))))) 


What is the value of {set-counter 0) 


What is the value of 

{consC {consC f (quote ())) 
{consC m 

{consC {consC f (quote ())) 


(quote ())))) 


where 


/ is food 


and 


m is more 


((food) more (food)). 
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What is the value of (counter) 

5. 

What is the value of ( set-counter 0) 

( remberl*C2 a l) 
where 

a is noodles 
and 

l is ((food) more (food)) 

((food) more (food)), 

because this list does not contain noodles. 

And what is the value of ( counter ) 

5, 

because remberl *C2 needs five consC s to 
rebuild the list ((food) more (food)). 

What food are you in the mood for now? 

Find a good restaurant that specializes in it 
and dine there tonight. 
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What is the value of ( lots 3) 


What is the value of ( lots 5) 


What is the value of ( lots 12) 


What is the value of ( lenkth (lots 3)) 


What is the value of ( lenkth {lots 5)) 


What is the value of ( lenkth (lots 15)) 



How can we create a list of four eggs from 
(lots 3) 


We Change, Therefore We Are the Same! 


(egg egg egg). 


(egg egg egg egg egg). 

(egg egg egg egg egg egg 
egg egg egg egg egg egg). 

I 

3. 

5. 

15. 



(define lenkth 
(lambda (/) 
(cond 


{{null? 1) 0) 

(else {addl {lenkth {kdr 1 /))))))) 



How about {kons (quote egg) {lots 3))? 



Can we add an egg at the other end of the 
list? 


Why do we ask {null? {kdr /)) 


What is a non-empty list? 


What is konsC 


What is the value of ( add-at-end (lots 3)) 


Of course we can. 


(define add-at-end 
(lambda (/) 
(cond 


{{null? {kdr l)) 
{konsC ( kar 1 /) 
{kons (quote egg) 
(quote ())))) 
(else {konsC {kar l) 


{add-at-end {kdr /))))))) 


L, S: This is like car. 


Because we promise not to use add-at-end 
with non-empty lists. 


A non-empty list is always created with 
kons. Its tail may be the empty list though 


konsC is to consC what kons is to cons. 


(egg egg egg egg). 


How many konsC e s did we use? The value of {kounter) is 3. 

Can we add an egg at the end without That would be a surprise! 

making any new konse s except for the last 

one? 
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Here is one way. 

Are there any others? 

(define add-at-end-too 
(lambda (/) 

(letrec 

((A (lambda (Is) 

(cond 

((null? (kdr Is)) 

(set-kdr 1 Is 
(kons (quote egg) 
(quote ())))) 

(else (A (kdr /$))))))) 

{A l) 

0)) 




* L: This is like rplacd. 

S: This is like set-cdr!. 


Sure there are, but we are not interested in 
them. 

Okay. 

What is the value of (set-kounter 0) 

What is the value of (kounter) 

0 . 

What is the value of 
(add-at-end-too (lots 3)) 

(egg egg egg egg). 

How many konsCe s did add-at-end-too use? 

Can we count them? 

What if we told you that the value of 
(kounter) is 0 

That’s what it should be because 

add-at-end-too never uses konsC so the value 

of (kounter) should not change. 

Do you remember cons 

It is magnificent. 
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Recall zubl eddl and sero ? from 

The Little Schemer. We can approximate 

cons in a similar way: 

(define kons 

(lambda (kar kdr) 

(lambda ( selector) 

(selector kar kdr)))) 

Write kar and kdr 


(define kar 
(lambda (c) 

(c (lambda (a d) a)))) 


(define kdr 
(lambda ( c) 

(c (lambda (a d) d)))) 


Suppose we had given you the definition of 
bons 

(define bons 
(lambda (kar) 

(let ((kdr (quote ()))) 

(lambda (selector) 

(selector 

(lambda (x) (set! kdr x)) 
kar 

kdr))))) 


They are not too different from the previous 
definitions of kar and kdr. 

(define kar 
(lambda (c) 

(c (lambda (s a d) a)))) 


(define kdr 
(lambda (c) 

(c (lambda (5 a d) d)))) 


Write kar and kdr 


How can bons act like kons 

Are we about to find out? 

What is the value of (bons e) 
where e is egg 

It is a function that is almost like (kons e f) 
where / is the empty list. 

What is different? 

When we determine the value of 
(bons (quote egg)), we also make a new 
imaginary name, kdr x . And the value that 
this imaginary name refers to can change 
over time. 

How can we change the value that kdr x 
refers to? 

We could write a function that is almost like 
kar or kdr. This function could use the 
function (lambda (a:) (set! kdr x rr)). 
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What is a good name for this function? 

A good name is set-kdr and here is its 
definition. 


(define set-kdr 
(lambda (c x) 

((c (lambda (s a d) s)) x))) 



Can we use set-kdr and bons to define kons 

It’s a little tricky but bons creates kons-like 
things whose kdr can be changed with 
set-kdr. 

Let’s do it! 

Okay, this should do it: 


(define kons 
(lambda (ad) 

(let ((c (bons a))) 

(set-kdr c d) 

c))) 



Is kons a shadow of cons 

It is. 

Is kons different from cons 

It certainly is. But don’t forget that 
chapter 6 said: Beware of shadows. 

Did we make any konse s when we added an 
egg to the end of the list? 

Only for the new egg. 

What is the value of 

To find out, we must determine the value of 

/ I i 4 r\ \ 

(define dozen (lots 12 )) 

(lots 12 ). 



How many konse s did we use? 

12 . 

What is the value of 

To find out, we must determine the value of 

/tt # tt \ 

(define bakers-dozen ( add-at-end dozen)) 

( add-at-end dozen). 
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How many houses did we use now? 


13. 


How many houses did we use altogether? 25. 


What is the value of 



To find out, we must determine the value of 
( add-at-end-too dozen). 


How many houses did we use now? One. 


How many houses did we use altogether? 26. 


Does that mean that the houses in dozen are Absolutely! 
the same as the first twelve in 
bakers- dozen- too 


Does that mean that the houses in dozen are Absolutely not! 
the same as the first twelve in bakers-dozen 



Okay. 


How many houses did we use now? 



Were you surprised that it wasn’t 13? Yes. 


How many houses did we use altogether? 40. 

i 

Does that mean that the houses in dozen are Absolutely not, again! 
the same as the first twelve in 
bakers-dozen-again 
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Does that mean that the houses in 
bakers-dozen are the same as the first twelve 
in bakers-dozen-again 


Absolutely not! 



Does that mean that the houses in dozen are It sure does! 
still the same as the first twelve in 
bakers- dozen- too 


What is the value of #t. 

( eklist? bakers-dozen bakers-dozen-too) 
where 

(define eklist? 

(lambda (Isl ls2) 

(cond 

(( null? Isl) {null? Is2)) 

{{null? Is2) #f) 

(else 

(and {eq? {kar Isl) {kar ls2)) 

{eklist? {kdr Isl) {kdr Zs#))))))) 


What does “the same” mean? 


That is a deep philosophical question. 
Thank you, Gottfried W. Leibniz 

(1646-1716). 


There is a new idea of “sameness” once we And that is? 
introduce (set! ...) 

Two houses are the same if changing one What does that mean? 

changes the other. 

How can we change a kons We defined set-kdr so that we could add a 

new egg at the end of the list without 
additional houses. 


Suppose we changed the first kons in dozen. No. 
Would it cause a change in the first kons of 
bakers-dozen 
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Suppose again we changed the first kons in 
dozen. Would it cause a change in the first 
kons of bakers-dozen-too 

Yes! 

Time to define this notion of same. 

Thank you, Gerald J. Sussman 
and Guy L. Steele Jr. 

(define same? 

(lambda ( cl c2) 

(let (( tl {kdr cl)) 

( t2 (kdr c2))) 

( set-kdr cl 1) 

{set-kdr c2 2) 

(let (( v (= ( kdr cl) (kdr c2)))) 

{set-kdr cl tl) 

( set-kdr c2 t2) 

V)))) 



What is the value of 

{same? bakers-dozen bakers-do zen-too) 

#t. 

Why? 

The function same? temporarily changes the 
kdrs of two konse s. Then, if changing the 
second kons also affects the first kons , the 
two must be the same. 

Could you explain this again? 

If someone overate and you have a stomach 
ache, you are the one who ate too much. 

How many imaginary names are used to 
determine the value of 

{same? 

{kons (quote egg) (quote ())) 

{kons (quote egg) (quote ()))) 

Two. One for the first kons and one for the 
second. 

What is its value? 

#f. 
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How did same? determine the answer? 


The function first names the values of the 
kdrs. Then it changes them to different 
numbers. The answer is finally determined 
by comparing the values of the two kdrs. 
Finally, the set-kdrs change the respective 
kdrs so that they refer to their original 
values. 


Here is the function last-kons 

(define last-kons 
(lambda (Is) 

(cond 

((null? (kdr Is)) Is) 

(else (last-kons (kdr /$)))))) 

Describe what it does. 


The function last-kons returns the last kons 
in a non-empty kons- list. 



Fine. 

(define long (lots 12)) 



What does long refer to? 

(egg egg egg egg egg egg 
egg egg egg egg egg egg). 

What would be the value of 
(set-kdr (last-kons long) long) 

Did you notice the subjunctive mood? 


And then, what would be the value of No answer. 

(lenkth long) 


What is the value of 

(set-kdr (last-kons long) (kdr (kdr long))) 


What is the value of 
(lenkth long) 


Still no answer. 
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Why is there no value? 

How many konse s does it contain? 

i 

Didn’t we write length together in The Little 
Schemer ? 

Did we disobey any of the commandments 
when we wrote length 

Then what’s wrong? 


And? 


Why is this bad? 


Because long is very long. 

12 . 


Yes, though lenkth now uses kdr because the 
lists it receives are made with kons. 


No, we didn’t! 


The last kons of long no longer contains 
(quote ()) in the kdr part. Instead, the kdr 
part refers to some kons inside of long. 

No kdr refers to the empty list, because the 
only one that did was changed. 

It means that lenkth keeps taking kdrs 
forever. 


Draw a picture of “Kons the Magnificent” here. 
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Bon appetit. 











We see you have arrived here. 

Let’s continue. 

What is the value of ( deep 6) 

((((((pizza)))))). 

Here is deep again. 

Yes, this is our friend. 

(define deep 
(lambda (m) 

(cond 

((zero? m) (quote pizza)) 

(else (cons (deep (subl m)) 

(quote ())))))) 




How did you determine the value of (deep 6) 

The value is determined by answering the 
single question asked by deep. 

What is the question asked by deep 

The question is (zero? m). If deep's 
argument is zero, the value of (deep m) is 
pizza. If it is not, we need to determine the 
value of (deep (subl m)) and cons its value 
onto the null list. 

What is the answer to (zero? 5) 

Why are we doing this? We practiced this 
kind of thing in chapter 2. 

So do you remember these questions? 

Sure do. 

When (deep 0) returns the value pizza, how 
many cons steps do we have to pick up to 
find out what the value of (deep 6) is? 

Six. 
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And they are? 


Simple, 
we need to: 

1. cons the pizza onto () 

2. cons the result of 1 onto () 

3. cons the result of 2 onto () 

4. cons the result of 3 onto () 

5. cons the result of 4 onto () 

6. cons the result of 5 onto () 


And if deep's task had been to make a 
mozzarella pizza, what steps would we have 
had to do then? 


We just use mozzarella and do whatever we 
needed to do before: 

1. cons the mozzarella onto () 

2. cons the result of 1 onto () 

3. cons the result of 2 onto () 

4. cons the result of 3 onto () 

5. cons the result of 4 onto () 

6. cons the result of 5 onto (). 


How about a Neapolitan? 


Perhaps we should just define the function 
six-layers and use it to create the pizzas we 
want: 


(define six-layers 
(lambda ( p ) 

(cons 
(cons 


(cons 


(cons 


(cons 

(cons p (quote ())) 
(quote ())) 

(quote ())) 

(quote ())) 

(quote ())) 

(quote ())))) 


But what if we had started with (deep 4) 


Then we would have had to define 
four-layers to create these special pizzas 
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Define four-layers 


(define four-layers 
(lambda ( p ) 

(cons 
(cons 
(cons 

(cons p (quote ())) 
(quote ())) 

(quote ())) 

(quote ())))) 


And how about 1000 layers? Well, we would need to define the function 

thousand-layers. Somehow we seem to define 
a function that does exactly what is left to 
do when deep’ s argument has become 0. 


Yes, that’s what we have done. 


Isn’t there an easier way to do this? 


Yes, we can remember this kind of function 
with a (set! ...) 


Do you mean something like this? 

(define deepB 
(lambda (m) 

(cond 

((zero? m) 

... (set! toppings ...) ...) 
(else (cons (deepB (subl m)) 

(quote ())))))) 


That is what we mean. 


But what do we put where the dots are? 


We are about to show you 


And how do we make sure the function still 
returns pizza afterward? 


One step at a time. Do you remember Yes. 

(letcc ...) from chapter 13? 
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That will help. 


You mean what we saw isn’t all there is to it? 


Not even half. 


Okay. Let’s see more. 


That’s what we shall do. Here is a first layer 


(define toppings) 


This use of (letcc ...) is different from 
anything we have seen before. 1 


(define deepB 
(lambda (m) 
(cond 


((zero? m) 

(letcc jump 
(set! toppings jump ) 
(quote pizza))) 

(else (cons (deepB (subl m)) 

(quote ())))))) 


L: This is impossible in Lisp, but Scheme can do it 


How is it different? 


Have we seen this before? 


What else is different about (letcc ...) 


True. What does deepB do with jump 


What could it mean to “remember jump ” ? 

i 

What was deep when we asked for the value 
of (deep 9) 


To begin with, the value part of (letcc ...) 
has two parts. 

Yes, (let ...) and (letrec ...) sometimes 
have more than one expression in the value 
part. 

We don’t seem to use jump the way we used 
hop in chapter 13. 

It seems to be remembering jump in 
toppings . 

We don’t even know what jump is. 

Easy: deep was the name of the function that 
we defined at the beginning of the chapter. 
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So what was hop when we asked for the 
value of ( hop (quote ())) in chapter 13? 

What would be the value of ( deepB 6) 

And what else would have happened? 


So what is ( six-layers (quote mozzarella)) 


What would be the value of ( toppings e ) 
where 

e is mozzarella 

And what about ( toppings e) 
where e is cake 

(toppings (quote pizza)) would be 
((((((pizza)))))) 

right ? 


We said it was a compass needle. Could hop 
also be a function? 


No problem: ((((((pizza)))))). 

We would have remembered jump , which 
appears to be some form of function, in 
toppings . 

((((((mozzarella)))))). 


Yes, it would be ((((((mozzarella)))))). 


((((cake)))))). 


After mozzarella on cake, nothing’s a surprise 
anymore. 


Just wait and see. Why? 


Let’s add another layer to the cake. Easy as pie: just cons the result onto the 

null list. 

i 

Like this: ( cons (toppings m) (quote ())) That should work, shouldn’t it? 

where m is cake 


You couldn’t possibly have known! 


It doesn’t. Its value would be 
((((((cake)))))). 
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Let’s add three slices to the mozzarella: ((((((mozzarella)))))), same as above. Except 

(cons that we get mozzarella pizza instead of cake. 

(cons 

(cons (toppings (quote mozzarella)) 

(quote ())) 

(quote ())) 

(quote ())) 


Can you explain what happens? 


We haven’t told you yet, but here is the 
explanation: 

“Whenever we use (toppings m) it forgets 
everything surrounding it and adds exactly 
six layers of parentheses.” 


Suppose we had started with (deepB 4) 


Then toppings would be like the function 
four-layers but it would still forget. 


That means 

(cons 
(cons 


(cons (toppings (quote mozzarella)) 
(quote ())) 

(quote ())) 

(quote ())) 

would be ((((mozzarella)))) 


Yes! 


The Twentieth 


Commandment 


When thinking about a value created with (letcc ... ), 
write down the function that is equivalent but does not 
forget. Then, when you use it, remember to forget. 


What would be the value of 

(cons (toppings (quote cake)) 
(toppings (quote cake))) 


((((cake)))), no? 
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Yes, toppings would forget everything. What 
would be the value of 

(cons (toppings (quote cake)) 

(cons (toppings (quote mozzarella)) 

(cons (toppings (quote pizza)) 
(quote ())))) 


((((cake)))). 


1 


S: Here, the value of the first argument is determined 
tore the second one, but in Scheme the order of evaluation 
an application is intentionally unspecified. 


Yes! When we use a value made with 
(letcc ...) it forgets everything around it 


Just as the commandment says. 


Does this mean that we can never cons 
anything onto toppings 


Yes, never! 


Let’s try anyway. Here is a relative of deep: 


(define deep&co 
(lambda (m k) 

(cond 

((zero? m) (k (quote pizza))) 

(else 

(deep&co (subl m) 

(lambda (x) 

(k (cons x (quote ()))))))))) 


This is a version of deep that uses a collector 
It has been a long time since we saw 
collectors in chapter 8. 


Yes, but collectors are useful here, too 


That’s good to know. 


How could we determine the value of 
(deep 6) 
using deep&co 


The second argument of deep&co must be a 
function that returns pizza when given pizza 


Which function does that? 


(lambda (x) x) 


What is the value of 

(deep&co 0 (lambda (x) x)) 


pizza. 
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((((((pizza)))))). 


And what is the value of 
( deep&co 6 (lambda (rr) rr)) 


( deep&co 2 (lambda (rr) rr)) 


((pizza)), of course. 


And how do we get there? 


We ask {zero? 2), which isn’t true, and then 
determine the value of 
{deep&co 1 
(lambda (x) 

{k {cons x 

(quote ()))))) 

where 

k is (lambda (x) x). 


How do we do that? 


We check whether the first argument is 0 
again, and since it still isn’t, we recur with 

{deep&co 0 
(lambda (x) 

{k {cons x 

(quote ()))))) 

where 

k is (lambda (x) 

{k2 {cons x 

(quote ())))) 

and 

k2 is (lambda (x) x). 


Is there a better way to describe the 
collector? 
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Why? 


Are we done now? 


What is the last collector when we determine 
the value of ( deep&co 6 (lambda (x) rr)) 
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We can replace k2 with (lambda (x) x), 
which shows that k is the same as 

(lambda (x) 

(cons x (quote ()))). 

And then we can replace k with this new 
function. 

Yes, we just use two-layers on pizza because 
the first argument is 0, and doing so gives 
((pizza)). 

I 

When the first argument for deep&co finally 
reaches 0, the collector is the same function 
as six-layers. 

four-layers. 


This function remembers the collector in 
toppings. 


What is toppings after we determine the 
value of ( deep&coB 2 (lambda (x) rr)) 



So what is it? 


It is two-layers. 


And what is toppings after we determine the It is equivalent to six-layers. 
value of ( deep&coB 6 (lambda (x) rr)) 


What is the value of 

( deep&coB 4 (lambda (x) rr)) 


((((pizza)))). 


What is toppings 


It is just like four-layers 


Does this mean that the final collector is Yes, it is a shadow of the value that 

related to the function that is equivalent to (letcc ...) creates, 

the one created with (letcc ...) in deepB 

What would be the value of (((((cake)))) (((cake)))), not ((((cake)))). 

(cons (toppings (quote cake)) 

(toppings (quote cake))) 

Yes, this version of toppings would not forget (((((cake)))) ((((mozzarella)))) ((((pizza))))), 
everything. What would be the value of 

{cons {toppings (quote cake)) 

{cons {toppings (quote mozzarella)) 

{cons {toppings (quote pizza)) 

(quote ())))) 
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Beware of shadows! 

That’s correct: shadows are close to the real 
thing, but we should not forget the difference 
between them and the real thing. 

Do you remember the function two-in-a-row? 

Sure, we defined it in chapter 11. 

What is the value of (two-in-a-row? lat) 
where 

lat is (mozzarella cake mozzarella) 

#f. 

What is the value of (two-in-a-row? lat) 
where 

lat is (mozzarella mozzarella pizza) 

#t. 

Here is our original definition of 
two-in-a-row? 

Sure, and here is the better version from 
chapter 12: 

i 

(define two-in-a-row? 

(lambda (lat) 

(cond 

((null? lat) #f) 

(else (two-in-a-row-b? (car lat) 

(cdr lat)))))) 


(define two-in-a-row? 

(letrec 

(( W (lambda (a lat) 

(cond 

((null? lat) #f ) 

(else 

(let ((nxt (car lat))) 


(define two-in-a-row-b? 

(lambda (a lat) 

(cond 

((null? lat) # f ) 

(else (or (eq? (car lat) a) 

(two-in-a-row-b? (car lat) 
(cdr lat))))))) 


\ \ \ \ J f f 

(or (eq? nxt a) 

( W nxt 

(cdr lat))))))))) 

(lambda (lat) 

(cond 

((null? lat) #f ) 

(else (W (car lat) (cdr lat))))))) 


i 

Explain what two-in-a-row? does. 

Easy, 

it determines whether any atom occurs 
twice in a row in a list of atoms. 
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What is the value of (two-in-a-row*? 1) 
where 

l is ((mozzarella) (cake) mozzarella) 

Are we going to think about “stars”? 

Yes. What is the value of (two-in-a-row*? 1) 
where 

l is ((mozzarella) (cake) mozzarella) 

#f. 

What is the value of (two-in-a-row*? 1) 
where 

l is ((potato) (chips ((with) fish) (fish))) 

#t. 

What is the value of (two-in-a-row*? 1) 
where 

l is ((potato) (chips ((with) fish) (chips))) 

#f- 

What is the value of (two-in-a-row*? 1) 
where 

l is ((potato) (chips (chips (with) fish))) 

#t. 

Can you explain what two-in-a-row*? does? 

Here are our words: 

“The function two-in-a-row*? processes a 
list of S-expressions and checks whether 
any atom occurs twice in a row, regardless 
of parentheses.” 

What would be the value of (walk l) 
where 

l is ((potato) (chips (chips (with))) fish) 

We haven’t seen walk yet. 
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Here is the definition of walk 


(define leave) 


(define walk 
(lambda (2) 
(cond 


((null? 1) (quote ())) 
((atom? (car l)) 

(leave (car /))) 

(else 
(let () 

(walk (car l)) 
(walk (cdr /))))))) 


Have we seen something like this before? 


Yes, walk is the minor function Im in 
leftmost. 


(define leftmost 
(lambda (/) 
(letcc skip 
(letrec 


((lm (lambda (/) 

(cond 


(lm /))))) 


((null? 1) (quote ())) 
((atom? (car l)) 

(skip (car /))) 

(else 
(let () 

(lm (car l)) 

(lm (cdr /)))))))) 


And what does lm do? 


It searches a list of S-expressions from left to 
right for the first atom and then gives this 
atom to a value created by (letcc ...). 


So, what would be the value of (walk l) 
where 

l is ((potato) (chips (chips (with))) fish) 


If leave is a magnetic needle like skip , walk 
uses it on the leftmost atom. 


Does this mean walk is like leftmost if we put 
the right kind of value into leave 


Yes! 


What would be the value of (start-it l) 
where 

l is ((potato) (chips (chips (with))) fish) 
and the definition for start-it is 


(define start-it 
(lambda (/) 
(letcc here 


(set! leave here) 
(walk l)))) 


Okay, now leave would be a needle! 
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Why? 

0 

Because start-it first sets up a North Pole 
and then remembers it in leave. When we 
finally get to ( leave (car /)), leave is a needle 
that is attracted to the North Pole in start-it. 

What would be the value of leave 

It would be a function that does whatever is 
left to do after the value of ( start-it l) is 
determined. 

And what would be the value of ( start-it l) 

It would be potato. 

Can you explain how to determine the value 
of ( start-it l) 

Your words could be: 

“The function start-it sets up a North Pole 
in here , remembers it in leave , and then 
determines the value of ( walk l). The 
function walk crawls over l from left to 
right until it finds an atom and then uses 
leave to return that atom as the value of 
( start-it /).” 

Write the function waddle which is like walk 
except for two small things. 

What things? 

First, if ( leave (car l)) ever has a value, 
waddle should look at the elements in ( cdr l) 

That’s easy: we just add ( waddle (cdr l)) 
after ( leave (car /)), ordering the two steps 
using (let () ... ): 

(let () 

(leave (car l)) 

(waddle (cdr /))) 

But why would we want to do this? We 
know that leave always forgets. 

Because of our second change. 

And that is? 


168 


Chapter 19 





This is similar to what we did with deepB. 


Second, before determining the value of 
(leave (car l)) 

the function waddle should remember in fill 
what is left to do. 


(define fill) 


(define waddle 
(lambda (/) 

(cond 

((null? 1) (quote ())) 
((atom? (car l)) 

(let () 

(letcc rest 
(set! fill rest) 

(leave (car l))) 

(waddle (cdr /)))) 

(else (let () 

(waddle (car l)) 
(waddle (cdr /))))))) 


Is it now possible that (leave (car l)) yields a No, not really! But something similar may 
value? occur: if fill is ever used, it will restart 

waddle. 


One step at a time! We need to learn to walk donuts, 
before we run! What would be the value of of course. 

(start-it2 l) 
where 

l is ((donuts) 

(cheerios (cheerios (spaghettios))) 
donuts) 

and 

(define start-it2 
(lambda (l) 

(letcc here 
(set! leave here) 

(waddle /)))) 



In addition, waddle would remember rest in 

fill. 
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What is rest 

It is a needle, just as jump in deepB. 

Didn’t we say that jump would be like a 
function? 

Yes, it would have been like a function, but 
when used, it would have also forgotten what 
to do afterward. 

What kind of function does rest correspond 
to? 

If rest is to waddle what jump is to deepB , 
the function ignores its argument and then it 
acts like waddle for the rest of the list until it 
encounters the next atom. 

Why does this function ignore its argument? 

Because the new North Pole creates a 
function that remembers the rest of what 
waddle has to do after (letcc ...) produces a 
value. Since the value of the first expression 
in the body of (let () ...) is ignored, the 
function throws away the value of the 
argument. 

What does the function do afterward? 

It looks for the first atom in the rest of the 
list and then uses leave on it. It also 
remembers what is left to do. 

What is the rest of the list? 

Since l is ((donuts) 

(cheerios (cheerios (spaghettios))) 
donuts), 

the rest of the list without the first atom 

•s (() 

(cheerios (cheerios (spaghettios))) 
donuts). 
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Can you define the function that corresponds 
to rest 


No problem: 



where 
11 is (() 

(cheerios (cheerios (spaghettios))) 
donuts). 


Was this really no problem? 


Well, x is never used but that’s no problem 


What would be the value of 
(get-next (quote go)) 
where 


The value would be cheerios. 


(define get-next 
(lambda (x) 

(letcc here-again 
(set! leave here-again) 
(fill (quote go))))) 


Why? 


Because fill is like restl , except that it 
forgets what to do. Since (restl (quote go)) 
would eventually determine the value of 
(leave (quote cheerios)), and since leave is 
just the North Pole here-again , the result of 
(get-next (quote go)) would be just cheerios 


And what else would have happened? 


Well, fill would now remember a new needle 


And what would this needle correspond to? It would have corresponded to a function like 

restl , except that the rest of the list would 
have been smaller. 
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Define this function. 


Does get-next deserve its name? 


What else does it do? 


Does this mean that the value of 
( get-next (quote go)) 
would be cheerios again? 


And if we were to determine the value of 
( get-next 1 (quote go)) a third time, what 
would we get? 

* This is not a mathematical function. 


Let’s imagine we asked 
( get-next (quote go)) 
for a fourth time. 


Last time: ( get-next (quote go)) 



where 

12 is (((cheerios (spaghettis))) 

donuts). 


Yes, it sets up a new North Pole for fill to 
return the next atom to. 

Just before fill determines the next atom in 
the list of S-expressions that was given to 
start-it2 , it changes itself so that it can 
resume the search for the next atom when 
used again. 

Yes, if after determining the first value of 
(get-next (quote go)) we asked for the value 
again, we would again receive cheerios, 
because the original list 
was ((donuts) 

(cheerios (cheerios (spaghettis))) 
donuts). 


spaghettis, 

because the next atom in the list is 
spaghettios. 


donuts. 


Wow! 
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Wow, what? 

Since donuts is the very last atom in /, 
waddle finally reaches {null? 1) 
where l is (). 

And then? 

Well, the final value is (). 

What is so bad about that? 

If we had done all of what we intended to do, 
we would be back where we originally asked 
what the value of ( start-it2 l) would be 
where 

l was ((donuts) 

(cheerios (cheerios (spaghettios))) 
donuts). 

And from there on? 

Heaven knows what would happen. Perhaps 
it was a good thing that we always asked 
“what would be the value of” instead of 
“what is the value of.” 

Why would it get back to start-it2 

Once the original input list to waddle is 
completely exhausted, it returns a value 
without using any needle. In turn, start-it2 
returns this value, too. 

What should happen instead? 

If get-next really deserves its name, it should 
return (), so that we know that the list is 
completely exhausted. 

But didn’t we say that get-next deserved its 
name? 

We did and it does most of the time. Indeed, 
with the exception of the very last case, 
when the original input list is exhausted, 
get-next works exactly as expected. 

Does this mean that start-it2 would deserve 
the name get-first 

No, it wouldn’t. It does get the first atom, 
but later it also returns () when everything is 
over. 
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Is it also true that waddle doesn’t use leave 
to return () 


Yes, it is. 


And is it true that using (leave (quote ())) Yes, it would: if leave were used, then 

after the list is exhausted would help things? get-next would return () eventually, and we 

would know that the list was exhausted. 




Does ( get-first l) return () when l doesn’t Yes! 

contain an atom? 

And does get-next deserve its name? Yes! 


Does ( get-next (quote go)) return () when Yes! 
the latest argument of get-first didn’t contain 
an atom? 

( get-first l) donut, 

where l is (donut) 


(get-next (quote go)) 



What would (get-first l) be 
where 

l was (fish (chips)) 


fish. 
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What would be (get-next (quote go)) 

chips. 

What would be (get-next (quote go)) 

o- 

Are there any more atoms to look at? 

No! 

What would (get-first l) be 
where 

l is (fish (chips) chips) 

fish. 

What would be (get-next (quote go)) 

chips. 

What would be (get-next (quote go)) 

chips. 

Is it true that chips occurs twice in a row in 
(fish (chips) chips) 

Yes, it does! And by using get-first and 
get-next , we can find out! 


Should we define two-in-a-row*? like this: Yes, and here is two-in-a-row-b*?: 

(define two-in-a-row*? 

(lambda (/) 

(let ((fst (get-first l))) 

(if (atom? fst) 

(two-in-a-row-b*? fst) 

# 0 ))) 


Why does two-in-a-row*? check whether fst Returning (), a non-atom, is get-firsV s way 
is an atom? of saying that there is no atom in l. 


Why does two-in-a-row-b*? not take the list Because get-next knows how to get the rest 
as an argument? of the atoms, without being told about l. 


(define two-in-a-row-b*? 

(lambda (a) 

(let ((n (get-next (quote go)))) 
(if (atom? n) 

(or (eq? n a) 

(two-in-a-row-b*? n)) 

#f)))) 
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Why does two-in-a-row-b*? check whether n Returning (), a non-atom, is get-next 's way 
is an atom? of saying that there are no more atoms in l. 


Didn’t we forget The Thirteenth 
Commandment? 
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Isn’t this a large definition? 

Yes, it is. It was a good idea to develop it in 
several steps. 

And what’s (two-in-a-row*? 1) 
where 

l is (((food) ()) (((food)))) 

#t. 

Are you hungry yet? 

Very! 

Okay, let’s hurry then. This is only an 
appetizer anyway. 

What’s next? 

Real food. 

Let’s have a banquet. 

Hold on! 

Why? 

Don’t forget your banquet, but we still need 
to do something. 

What? 


Hop, Skip, and Jump! 
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Do you remember tables from chapter 10? A table is something that pairs names with 

values. 

How did we represent tables? We used lists and entries. 

Could a table be anything else? Yes, a function. A table acts like a function, 

because it pairs names with values, in the 
same way that functions pair arguments with 
results. 


So let’s use functions to make tables. Here is 
a way to make an empty table: 


(define the-empty-table 
(lambda (name) 

•••)) 


Don’t fill in the dots! 


In The Little Schemer we used 
(car (quote ())). 


What does that do? 


It breaks The Law of Car. 


If a table is a function, how can we extract 
whatever is associated with a name? 


We apply the table to the name 


Write the function lookup that does that. 


(define lookup 
(lambda (table name) 
(table name))) 


Can you explain how extend works? 


(define extend 

(lambda (namel value table) 
(lambda (name2) 

(cond 

((eq? name2 namel) value) 
(else (table name2)))))) 


Here are our words: 

“It takes a name and a value together with 
a table and returns a table. The new table 
first compares its argument with the name. 
If they are identical, the value is returned. 
Otherwise, the new table returns whatever 
the old table returns.” 
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What is the value of 


(define x 3) 


No answer. 


What is ( value e) 
where 

e is (define x 3) 


No answer. 


What is value 


The name is familiar from chapter 10. But, 
the function value there does not handle 

(define ...). 


So the new value might be defined like this 


(define value 
(lambda (e) 


Yes, this might do for a while. And don’t 
bother filling in the dots, now. We will do 
that later. 


(cond 


((define? e) (*define e)) 

(else (the-meaning e))) ... )) 


Should we continue with (letcc ...) now? 


Oh no! 


Okay, we’ll wait until later 


Whew! 


Do we need define? 


We don’t need to define it now, because it is 
easy, but here it is anyway. 


(define define? 
(lambda (e) 
(cond 


((atom? e) #f) 

((atom? (car e)) 

(eq? (car e) (quote define))) 
(else #f)))) 
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Do we need *define 


Yes, we need it. With (define ...), we can 
add new definitions. 


This function looks like one of those 
functions that remembers its arguments. 


(define *define 
(lambda (e) 

(set! global-table 
(extend 

(name-of e) 

(box 

(the-meaning 
(right-side-of e))) 
global-table)))) 


Here is *define 

(define global-table 
... the-empty-table ...) 


Yes, * define uses global-table to remember The table appears to be empty at first, 

those values that were defined. 


Is it empty? 


We shall soon find out. 


When *define extends a table with a name 
and a value, will the name always stand for 
the same value? 

Is this the reason why *define puts the value 
in a box before it extends the table? 


No, with (set! ...) we can change what a 
name stands for, as we have often seen. 


If we knew what a box was, the answer might 
be yes. 


Here is the function that makes boxes: 

^■ I ' Ml> • I I H 

(define box 
(lambda (it) 

(lambda (sel) 

(sel it (lambda (new) 

(set! it new)))))) 

Does this remind you of something we have 
discussed before? 


It should: bons from chapter 18 is a similar 
function. 
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Here is a function that changes the contents 
of a box 

That’s easy: 


(define unbox 
(lambda (box) 

(box (lambda (it set) it)))) 

(define setbox 

(lambda ( box new) 

(box (lambda (it set) (set new))))) 



Write the function unbox which extracts a 
value from a box 


So, is it true that if a name is paired with a 
boxed value that we can change what the 
name stands for without changing the table? 

Yes, it is. Using setbox changes the contents 
of the box but the table stays the same. 

What is the value of x 

3. 

What is (value e) 
where 
e is x 

3. 

Here is the-meaning 

The function lookup-in-global-table is a 
function that takes a name and looks up its 
value in global-table. It is easy to define: 

(define the-meaning 
(lambda (e) 

(meaning e lookup-in-global-table))) 



(define lookup-in-global-table 
(lambda (name) 

(lookup global-table name))) 

What do you think lookup-in-global-table 
does? 



Is it true that lookup-in-global-table is just 
like a table? 

Yes, it is a function that takes a name and 
returns the value that is paired with the 
name in global-table. 

Does this mean lookup-in-global-table is like 
global-table 

Yes and no. Since *define changes 
global-table , lookup-in-global-table is always 
just like the most recent global-table, not like 
the one we have now. 
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Have we seen this before? 


Remember Y\ from chapter 16? 


Is it important that we always have the most Yes, we will soon see why that is. 
recent value of global-table 

Here is meaning It translates e to a function that knows what 

to do with the expression and the table. 


What do you think the function 
expression-to-action does? 

Do we need to define expression-to-action No, we have seen it in chapter 10; it is easy; 

and it can wait until later. 



Fine, we will consider it later. 


Okay. 


Here is the most trivial action. 



The function identifier is similar to * quote, 
but it uses table to look up what a given 
name is paired with. 


And what is a name paired with? 


A name is paired with a box that contains its 
current value. So identifier must unbox the 
result of looking up the value. 
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What is the value of 


(set! x 5) 


No answer. 


What is the value of x 



What is (value e) No answer, 

where 

e is (set! x 5) 


What is (value e) 5. 

where 
e is x 



It too looks up the box that is paired with 
the name in a (set! ...) expression, but it 
changes the contents of the box instead of 
extracting it. 


Where does the new value for the box come It is the value of the right-hand side in a 
from? (set! ...) expression. 


Can you write *set now? 


(define *set 


(lambda (e table) 


(setbox 


(lookup table (name-of 


(meaning (right-side-of 

e) table)))) 


Yes, it just means translating the words into 
a definition: 


Can you describe what *set does? Yes. 

“The function lookup returns the box that 
is paired with the name whose value is to 
be changed. The box is then changed so 
that it contains the value of the right-hand 
side of the (set! ...) expression.” 
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What is the value of (lambda ( x ) x) 


It is a function. 


What is (value e) It could also be a function, 

where 

e is (lambda (x) x) 

What is the value of 0. 

((lambda ( y) 

(set! x 7) 

y) 

0 ) 


What is the value of x 7. 

What is (value e) 0. 

where 

e is ((lambda (y) 

(set! x 7) 

y) 

o) 


What is (value e ) 7. 

where 
e is x 
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Okay one more: 


Trivial, with that kind of name: 


i 


(define beglis 

(lambda (es table) 

(cond 

{{null? {cdr es)) 

{meaning {car es) table)) 

(else ((lambda {val) 

{beglis {cdr es) table)) 
{meaning {car es) table)))))) 


(define box-all 
(lambda {vals) 
(cond 


{{null? vals) (quote ())) 

(else {cons {box {car vals)) 

{box-all {cdr va/s))))))) 


Can you define box-all 


Take a look at beglis 

What is 

((lambda {val) ...) 
{meaning {car es) table)) 


It is the same as 

(let {{val {meaning {car es) table))) 

• ••) 

which first determines the value of 
{meaning {car es) table) and then the value 
of the value part. 


Why didn’t we use (let ...) 


Our functions will work for all the definitions 
that we need for them. And they do not need 
to deal with expressions of the shape (let ...) 
because we know how to do without them. 


How do you do without (let ...) in 
(let {{x 1)) (4* x 10)) 


Like this: it’s the same as 
((lambda (x) (4* x 10)) 1). 


Do you remember how to do without 
(let ...) in 

(let ((s 1) (y 10)) (+ x y)) 

So what does 

(let {{val {meaning {car es) table))) 
{beglis {cdr es) table)) 
do for beglis 

What happens to the value named val 


Yes, it’s the same as 

((lambda {x y) (4* x y)) 1 10). 


First, it determines the value of 
{meaning {car es) table) and names it val. 
And then, it determines the value of 
{beglis {cdr es) table). 

Nothing. It is ignored. 
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Why did we determine a value that is 
ignored in the end? 

Because the values of all but the last 
expression in the value part of a 
(lambda ...) are ignored. 

Can you summarize now what the function 
beglis does for *lambda 

We summarize: 

“The function beglis determines the values 
of a list of expressions, one at a time, and 
returns the value of the last one.” 

How does *lambda work? 

• 

When given (lambda (x y ...) ...), it returns 
the function that is in the inner box of 
*lambda. 

What does that function do? 

It takes the values of the arguments and 
apparently extends table, pairing each formal 
name, x, y, ..., with the corresponding 
argument value. 

Write the function multi-extend, which takes 
a list of names, a list of values, and a table 
and constructs a new table with extend 

No problem. 

(define multi-extend 
(lambda ( names values table) 

(cond 

{{null? names) table) 

(else 

{extend {car names) {car values) 
{multi-extend 
{cdr names) 

{cdr values) 
table)))))) 



Okay, so now that we know how table is 
extended, what happens after the new table 
is constructed? 

The function that represents a (lambda ...) 
expression uses the resulting table to 
determine the value of the body of the 
(lambda ...) expression, which was the first 
argument to *lambda. 
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Which paxts of the table can change even Each box that the table remembers for any 

though the table stays the same? given name may change its value. 


That’s how (set! ...) works, right? 


True. 


Write odd? and even? as recursive functions. Do you mean this pair of functions? 

(define odd? 

(lambda (n) 

(cond 

((zero? n) #f) 

(else (even? (subl n)))))) 


(define even? 

(lambda (n) 

(cond 

((zero? n) #t) 

(else (odd? (subl n)))))) 


Yes, what is (value e) No answer, 

where 

e is (define odd? 

(lambda (n) 

(cond 

((zero? n) #f) 

(else (even? (subl n)))))) 


What is (value (quote odd?)) 


A function. 



Which table does the function use when we 
ask (value e 
where 
e is (odd? 



The function extends lookup-in-global-table 
by pairing n with (a box containing) 0. 


And then? 


Eventually we get the result: #f. 


» 
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Does this table know about odd? 


It sure does. 


Does this table know about even? 

Does this mean that ( value e) 
where 

e is (odd? 1) 

does not have an answer? 

(value e) 
where 

e is (define even? 

(lambda (n) 

(cond 

((zero? n) #t) 

(else (odd? (subl n)))))) 

What is ( value e) 
where 

e is (odd? 1) 

Can you explain why? 


Have we seen this method of changing a 
function before? 

If *lambda represents (lambda ...) with a 
function, how does *application work? 


Not yet. 
Not yet. 


No answer. 


#t. Time for tea and cookies. 


Here is how we can explain it: 

“The table that is embedded in the 
representation of odd? is 
lookup-in-global-table. It is like a table, but 
when it is given a name, it looks in the 
most current value of global-table for the 
value that goes with the name. Since 
global-table may grow, lookup is guaranteed 
to look through all definitions ever made. 

Yes, when we derived Y\ in chapter 16, and 
when we discussed lookup-in-global-table. 

That is easy. It just applies the value of the 
first expression in an application to the 
values of the rest of the application’s 
expressions. 
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Here is the function *application 

(define *application 
(lambda (e table) 

((meaning (function-of e) table) 

(evlis (arguments-of e) table)))) 

The functions function-of and arguments-of 
are easy ones, and we can write them later. 
But what does the function evlis do? 


The function evlis determines the values of a 
list of expressions, one at a time, and returns 
the list of values. It is quite similar to beglis. 

(define evlis 

(lambda (args table) 

(cond 

((null? args) (quote ())) 

(else 

((lambda (val) 

(cons val 

(evlis (cdr args) table))) 
(meaning (car args) £aMe)))))) 


Why do we use ((lambda (val) ...) ...) in We still don’t have (let ...). 
evlis 


Do we need ((lambda (val) ...) ...) here 
too? 


Yes, 1 here and in beglis . 
Thank you, John Reynolds. 



S: So that our definitions always work in Scheme. 


What happens when we determine the value 

of (value e) 

where 

e is (car (cons 0 (quote ()))) 


The function value uses the function 
the-meaning , which in turn uses meaning to 
determine a value. 


And then? Then expression-to-action determines that 

(car (cons 0 (quote ()))) is an application, so 
that *application takes over. 


Does this mean the value of 
(meaning (quote car) table) 
must be a function? 


Yes, 

because *application expects 
(function-of e) to be represented as a 
(lambda ...), no matter what e is. 
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What kind of function does *application 
expect from (meaning e table) 
where 
e is car 


It will need to be a function that takes all of 
its arguments in a list and then does the 
right thing. 


How many values should the list contain that Exactly one. 
(meaning (quote car) table) receives? 


And what kind of value should this be? The value must be a list. And then we take 

its car. 

Define the function that we can use to Let’s call it :car. 

represent car 


Are there other primitives for which we Yes, cdr is one, and addl is another, 

should have a representation? 

We should have a function that makes Here is one: 

representations for such functions. 




We also need one for functions like cons that 
take two arguments. 


No problem: now the argument list must 
contain exactly two elements, and we just do 
what is necessary: 
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Where? Why? There are no repeated 
expressions. 


What is (value e) 
where 

e is (define Is 

(cons 

(cons 

(cons 1 (quote ())) 
(quote ())) 

(quote ()))) 

I 

What is (value e) 
where 

e is (car (car (car Is))) 


We add Is to global-table and rember what it 
stands for. 


1 . 
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How do we determine this value? 

It is an application, so we need to find out 
what car is and the value of the argument. 

How do we determine the value of car 

We use the function * const: 

(*const (quote car)) tells us. 

And that is? 

It is the same as ( a-prim car), which is like 
:car. 

How do we determine the value of the 
argument? 

It is an application, so we need to find out 
what car is and the value of the argument. 

(value (quote car)) 

We use the function *const: 

(*const (quote car)) tells us. 

And? 

It is the same as ( a-prim car), which is like 
:car. 

How do we determine the value of the 
argument? 

It is an application, so we need to find out 
what car is and the value of the argument. 

(value (quote car)) 

We use the function * const: 

(*const (quote car)) tells us. 

How often did we have to figure out the 
value of ( a-prim car) 

Three times. 

Is it the same value every time? 

It sure is. 

Is this wasteful? 

Yes: let’s name the value! 

Can we really use (let ...) 

We can: we just saw how to replace it. 
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Where do we put the (let ...) 

Around (cond ...)? 

When would we determine the values in this 
(let ...) 

Each time *const determines the value of car. 

So this wouldn’t help. 

Let’s put the (let ... ) outside of 
(lambda ...). 


Here is *const with (let ...) 

(define *const 
(let (( :cons ( b-prim cons)) 

(:car ( a-prim car)) 

(:cdr ( a-prim cdr)) 

(mull? ( a-prim null?)) 

(:eq? ( b-prim eq?)) 

(:atom? ( a-prim atom?)) 
(.number? (a-prim number?)) 
(:zero? (a-prim zero?)) 

(:addl (a-prim addl)) 

(:subl (a-prim subl)) 

I (mumber? (a-prim number?))) 

(lambda (e table) 

(cond 

((number? e) e) 

({eq? e #t) #t) 

{{eq? e #f) #f) 

((eq? e (quote cons)) :cons) 
((eq? e (quote car)) .car) 

((eq? e (quote cdr)) :cdr) 

((eq? e (quote null?)) mull?) 
((eq? e (quote eq?)) :eq?) 

((eq? e (quote atom?)) .atom?) 
((eq? e (quote zero?)) ‘.zero?) 
((eq? e (quote addl)) :addl) 
((eq? e (quote subl)) :subl) 
((eq? e (quote number?)) 
mumber?))))) 

Can you rewrite *const without (let ...) 


(define * const 

((lambda (:cons :car :cdr mull? 

:eq? .atom? 

.zero? :addl :subl mumber?) 
(lambda (e table) 

(cond 

((number? e) e) 

((eq? e #t) #t) 

((eq?e# f) #f) 

((eq? e (quote cons)) .cons) 
((eq? e (quote car)) :car) 

((eq? e (quote cdr)) :cdr) 

((eq? e (quote null?)) mull?) 
((eq? e (quote eq?)) :eq?) 

((eq? e (quote atom?)) :atom?) 
((eq? e (quote zero?)) :zero?) 
((eq? e (quote addl)) .addl) 
((eq? e (quote subl)) :subl) 
((eq? e (quote number?)) 
mumber?)))) 

(b-prim cons) 

(a-prim car) 

(a-prim cdr) 

(a-prim null?) 

(b-prim eq?) 

(a-prim atom?) 

(a-prim zero?) 

(a-prim addl) 

(a-prim subl) 

(a-prim number?))) 
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The Fifteenth Commandment 

(final version) 

Use (let ...) to name the values of repeated ex¬ 
pressions in a function definition if they may be 
evaluated twice for one and the same use of the 
function. And use (let ...) to name the values 
of expressions (without set!) that are re-evaluated 
every time a function is used. 


Are we now ready to work with value 

Almost. 

What is missing? 

The one kind of expression that we still need 
to treat is the set of (cond ...) expressions. 

Is *cond simple? 

Yes, there is nothing to it. We must 
determine the first line in the (cond ...) 
expression for which the question is true. 

And when we find one? 

Then we determine the value of the answer 
in that line. 

Here is the function *cond which uses evcon 
to do its job: 

By now, this is easy: 


(define evcon 

(lambda ( lines table) 

(cond 

{{else? {question-of {car lines))) 
{meaning {answer-of {car lines)) 
table)) 

{{meaning {question-of {car lines)) 
table) 

{meaning {answer-of {car lines)) 
table)) 

(else {evcon {cdr lines) table))))) 

(define *cond 
(lambda (e table) 

{evcon {cond-lines-of e) table))) 


Can you define the function evcon 
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What is ( value e) 
where 

e is (cond (else 0)) 

0. 

What is ( value e) 
where 

e is (cond 

((null? (cons 0 (quote ()))) 0) 

(else 1)) 

1. 

What is ( value e) 
where 

e is (cond) 

No answer. 

Time to continue with (letcc ...) 

Is it time to go to the North Pole? 

Yes, (letcc skip ...) remembers the North 

Pole so that skip can find its way back. How 
does it do this? 

We are about to find out. 

What does skip stand for in (letcc skip ...) 

We said it was like a function. 

Why is it like a function? 

We use ( skip 0) when we want to go to the 
North Pole named skip. 

How is it different from a function? 

When we use skip , it forgets everything that 
is about to happen. 

How can *letcc name a North Pole that 
remembers what is left to do? 

With (letcc skip ...). 

And now that skip is a North Pole, how can 
we turn it into a function that *application 
can use? 

The North Pole skip stands for a function of 
one argument. So the function that 
represents it for *application must take a list 
that contains the representation of this 
argument. 
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Can we use something that we have seen 
before to make this function? 


Yes, we can use ( a-prim skip). This is 
exactly the kind of function we need. 


What is the name for the function just 
created? 


If (letcc skip ...) is the expression that *letcc 
receives, then skip is the name. 


And how do we associate this name with the 
function we created? 


We can use extend to put the new pair into 
the table that *letcc receives. 


Here is the function *letcc 


(define *letcc 
(lambda (e table) 

(letcc skip 
{beglis ( ccbody-of e) 
{extend 
{name-of e) 

{box {a-prim skip)) 
table))))) 


Can you describe what it does? 


It sets up the North Pole skip, turns it into a 
function that *application can use, associates 
the name in e with this function, and 
evaluates the value part of the expression. 


That’s exactly what happens. 


Whew. 


But what would happen if we tried to 
determine the value of {value e) 
where 
e is z 


The name z hasn’t been used with define yet 


So what would happen? 


We still would like to have a good answer to 
this question. We have not yet finished the 
function the-empty-table. 


Have you forgotten about forgetting? We 
just showed you how it works. 


It is wrong to ask for the value of a name 
that is not in the table. 
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What should happen when something wrong We could forget all pending computations. 1 
happens? 

* We could also use (letcc .. .) to remember how the 
computation would have proceeded, if nothing wrong had 
happened. 


True enough. And how can we forget such We use (letcc ...). 

pending computations? 


Where should the North Pole be while we 
determine ( value e) 



But what can we put in the place of the dots? Well, we probably should remember the-end 

until we are done. 


Perhaps we should use (set! ...) to Yes, we have always used (set! ...) to 

remember it. remember things. 


Here is the final definition of value 

(define value 
(lambda (e) 

(letcc the-end 

(set! abort the-end) 

(cond 

((define? e) (*define e)) 
(else (the-meaning e)))))) 

Can you finish this? 


We need to define abort 
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And how does abort help us? 


We should probably use it with 
the-empty-table, which is why we redefined 
value in the first place. 


Can we now use abort inside of 
the-empty-table so that it no longer 
breaks The Law of Car? 


Definitely. Here is how we can fill in the dots 
in a better way: 



We didn’t talk about expression-to-action 
and atom- to - action 


Yes, a few simple things: 


(define expression-to-action 

(lambda (e) 

(cond 

((atom? e) (atom-to-action e)) 

(else (list-to-action e))))) 
(define atom-to-action 

(lambda (e) 


(cond 


* 


* 


((number? e) * const) 
((eq? e #t) *const) 
((eq? e #f) *const) 
((eq? e (quote cons)) 
((eq? e (quote car)) 31 
((eq? e (quote cdr)) ■ 
((eq? e (quote null?)) 
((eq? e (quote eq?)) 


* 


* 


* const) 
const) 
const) 

* const) 
*const) 


((eq? e (quote atom?)) 
((eq? e (quote zero?)) 
((eq? e (quote addl)) 
((eq? e (quote subl)) * 


* const) 

* const) 
const) 
const) 


* 


* 


* 


((eq? e (quote number?)) 
(else identifier)))) 


* 


const) 


Is there anything left to do? 


(define list-to-action 

(lambda (e) 

(cond 

((atom? (car e)) 

(cond 


((eq? (car e) (quote quote)) 
*quote) 

((eq? (car e) (quote lambda)) 
*lambda) 

((eq? (car e) (quote letcc)) 
*letcc) 

((eq? (car e) (quote set!)) 
*set) 

((eq? (car e) (quote cond)) 
*cond) 


* 


(else 


* 


application))) 


(else 


* 


application)))) 
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It returns 0 if there is no right-hand side. 
This handles definitions like 
(define global-table) 
where there is no right-hand side. 
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How does it take care of such definitions? 

It makes up a value for the name until it is 
changed to what it is supposed to be. 

So what’s the value of all of this? 

It makes people hungry. 

What is (value e) 
where 

e is (value 1) 

(no-answer value). 

How can we teach value what value means? 

We need to determine the value of (value e) 
where 

e is (define value 

(lambda (e) 

(letcc the-end 
(set! abort the-end) 

(cond 

((define? e) (^define e)) 

(else (the-meaning e)))))). 

And then? 

Then the answer to our original question is 
(no-answer define?). 

So we also need to add define? to global-table 

Yes, we do. And while we are at it, we might 
as well add ^define, the-meaning, lookup, 
lookup-in-global-table, and a few others. 

Are you sure we didn’t forget anything? 

We can try it out. 

How can we find out what other functions we 

The same way that we found out that we 


need? needed define?. 


What is (value e) First we decide that e is not a definition, so 

where we determine the value of ( the-meaning e). 

e is (value 1) 
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And then? 

Then we determine the value of 

(meaning e lookup-in-global-table). 

% 

Is this all? 

No. After we find out that e is an 
application, we need to determine 
(meaning f table) 
and 

(meaning a table) 
where 
/ is value 
a is 1 
and 

table is lookup-in-global-table. 

Is it easy from here on? 

The value of value is a function and the value 
of 1 is 1. The function that represents value 
extends table by pairing e with 1. And now 
the function works basically like value. 

Does that mean that we get the result 1 

Yes, because we added all the things we 

needed to global-table. 

If e is some expression so that ( value e) 
makes sense and if / represents e, then we 
can always determine the same value by 
calculating ( value value-on-f) 
where 

value-on-f is the result of 
(cons v (cons f (quote ()))) 
where 
v is value 

That is complicated and true. 

Isn’t it heavy duty work? 

It sure burns a lot of calories, but of course 
that only means that we will soon be ready 
for a lot more food. 
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Enjoy yourself with a great dinner: 

((escargots garlic) 

(chicken Provencal) 

((red wine) and Brie))t 


No, you don’t have to eat the parentheses. 
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You have reached the end of your introduction to computation. Are you now ready to tackle 
a major programming problem? Programming requires two kinds of knowledge: understand¬ 
ing the nature of computation, and discovering the lexicon, features, and idiosyncrasies of a 
particular programming language. The first of these is the more difficult intellectual task. If 
you understand the material in The Little Schemer and this book, you have mastered that 
challenge. Still, it would be well worth your time to develop a fuller understanding of all the 
capabilities in Scheme—this requires getting access to a running Scheme system and mastering 
those idiosyncrasies. If you want to understand the Scheme programming language in greater 
depth, take a look at the following books: 
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Afterword 


In Fortran you can speak of numbers, and in C of characters and strings. In Lisp, you can speak 
of Lisp. Everything Lisp does can be described as a Lisp program, simply and concisely. 

And where shall you go from here? Suppose you were to tinker with the programs in Chapter 20. 
Add a feature, change a feature ... You will have a new language, perhaps still like Lisp or 
perhaps wildly different. The new language may be described in Lisp, yet it will be not Lisp, 
but a new creation. 


If you give someone Fortran, he has Fortran. 
If you give someone Lisp, he has any language he pleases. 

—Guy L. Steele Jr. 
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